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I. IMTRODOCTION 



Magnetic bubble aienory is a new digital storage 
technology that offers many significant advantages over 
currently existing secondary storage mediums. Bubble 
memcries, with high densities and relatively fast access 
tines, are non-volatile semiconductor devices that provide a 
high degree of reliability in harsh environments. This 
technology has the potential for a vital and unique role in 
both the civilian and military computing environments due to 
the combination of characteristics exhibited by magnetic 
dcnain devices. 

This thesis presents an implementation of a magnetic 
bubble device (M3B-80) utilizing a conventional operating 
system (CP/M-86) and a commercial 16-bit microprocessor 
(Intel 8086) . A fully operational system capable of 
testing, evaluating, and utilizing a magnetic bubble device 
in a standard user environment is presented. 

There are four major phases into which this thesis is 
organized. The first phase will present an overview of 
bubble domain devices tc provide an understanding and 
evaluation of their potential applications as mass storage 
mediums. Chapter II will describe the theory of magnetic 
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butble devices and the current state of magnetic domain 
technology. Chapter III will present an evaluation of 
buttle memory technology and utilization along with a 
justification for the applicability of magnetic bubble 
devices. 

The second phase will address the low-level interface 
requirements for the MBB-80 Bubbl-Bcard (produced by PC/M 
Inc.) when interfacing with either the Intel 8080 or Intel 
8086 microprocessor. The purpose of this phase will be to; 
(1) verify the operational characteristics of the MBB-80; 
and, (2) design and implement the low-level systems software 
necessary to interface the operating system's I/O structure 
with the magnetic bubble memory ccntrcller. 

The third phase will address the issues necessary to 
implement the interface of the bubble memory system with the 
operating system's primitive secondary storage access 
routines. The tasks necessary in this phase are to: (1) 
design a memory organization and management scheme for the 
magnetic bubble memory; and, (2) design the interface such 
that the magnetic bubble memory appears as a "standard" mass 
storage device (disk) to the host operating system. 

The fourth phase is the actual interface of the MBB-80 
Bubbl-Boards into the CP/M-86 operating system. The 
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interfaces and designs developed in the second and third 



phases are applied in this phase. A 

tatle-driven , ’’basic input/output system” 
developed which will allow the utilization 



generalized, 
(BIOS) is 
of MBB-80 



Buttl-Boards (as ”dis)cs”) by the CP/H-86 operating system 



II . BACKGROONP OF EOBBLE HEMORIES 



A. HAGHETIC BOBBLE DOMAINS 

The entity known as the "magnetic bubble" has been much 
talked about in the context of solid state memory 
technologies. This section will present a description of 
what a magnetic bubble domain is and will describe some of 
its properties. No attempt will be made to present a 
comprehensive explanation of magnetic substances or 
magnetism, but rather the basic theories of magnetic domains 
will be put forth. 

Certain elements and their alloys (Fe, Co, Hi, Gd and 
Dy) along with other substances exhibit the well-known 
property of magnetism or, more properly, ferromagnetism 
[Ref. 1: p. 619], This prcperty permits a material's atoms 
to achieve a high degree of alignment despite the atoms' 
tendency towards randomization due to thermal motions. 
Adjacent atoms interact and couple into rigid serai-parallel 
patterns. These patterns are known as ferromagnetic domain 
structures and are localized within a specimen. Materials 
can be cut such that their direction of magnetization is 
along a single axis (viz., along one particular direction) 
and are known as uniaxial f errcmagnets. 
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Several important properties of ferromagnetism are 
exhibited when a magnetic substance is subjected to an 
applied (external) field. first, a relative increase in the 
external field of 0 to 0.01 will cause a relative increase 
in the substance's magnetic field of 0 to 1000 [Ref. 2: p. 

2]. This factor of 100,000 occurs primarily in a long, thin 
sairple or in a closed ring of some form. Secondly, if a 
single, thin, crystal sheet (film) of certain uniaxial 
ferromagnetic materials is cut perpendicular to the axis of 
natural magnetization (see Figure 2.1(a)), the domain 
structure is found to be one of wavy, or serpentine, strips 
having alternating directions of magnetization which are 
perpendicular to the surface of the sheet [Ref. 3; p. 86]. 

It is the combination of these two properties which 
supplies an environment for a magnetic bubble domain. A 
thin crystal film as described above, in the absence of an 
external field, will have a volume of serpentine strips 
magnetized in one direction which equals the volume of 
strips magnetized in the other direction, resulting in zero 
net magnetization. Open the application of an external 
magnetic field perpendicular to the film, the strip domains 
magnetized in the direction of the field will increase in 
volume as the oppositely magnetized domains shrink in volume 



13 



Bubble supporting film 




Figure 2.1 (a) Serpentine Strips, (b) Magnetized Strips, 

(c) Cylinders 
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[Ref. 3: p. 86]. This phenomenon is the result of the 

process of energy minimization and is shown in Figure 
2.1(b). As the external field increases in strength, a 
field value will be reached at which the shrinking domains 
contract into circular cylinders; it is these cylinders 
which are known as "magnetic bubbles." These cylinders are 
shewn in Figure 2.1(c). A further increase in the field 
will ultimately result in the total collapse of the 
shrinking domains, leaving the film saturated (viz., 
magnetized in one direction only) [Ref. 4; pp. 3-4]. 

The applied field, known as the bias field, is essential 

for the stability of the bubbles within a substance. The 

bias is typically on the order of 100-200 Oersteds (a unit 

used to measure magnetic strength) , which can be easily 

provided by small, permanent magnets. This allows stable 

bubble existence independent of any power source, which is 

the foundation for non-volatile storage media. The bubble 

itself is maintained by a combination of three forces. The 

stable equilbrium of the domain is preserved by the 

magnetization of the bubble itself producing internal 

magnetic pressure which opposes the squeezing force of the 

applied field. The bubble domain maintains its circular 

shape because of the force of the magnetic surface tension 

surrounds the domain. [Ref. 2; p. 10] 
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Clearly, the absence cr presence of a magnetic bubble 
domain can be used to represent a zero (0) or a one (1) for 
data storage. However, there are several additional 
requirements which must be met before this technology can be 
considered for use as a data medium. One of these 
properties is the mobility of magnetic domains. A bubble 
will move towards any position which minimizes energy. Such 
locations can be defined and created by having small, 
reduced fields of external bias. Unbalanced forces acting 
on the wall of the bubble will cause the bubble to move in 
the direction of the reduced bias field. By laying out a 
'•track" of permalloy (nickel-iron alloy) on the magnetic 
film and selectively altering the local bias on the track, 
it is possible to move bubbles along a prescribed path. It 
is important to note that, although this is similar to bits 
on a magnetic tape, there are no mechanical, moving parts 
involved as the bubbles move along this closed track. The 
fact that the bubble domains are only a few microns in 
diameter and may move at velocities in excess of several 
meters per second can provide data rates in excess of 
several megabits per second [Ref. 2; p. 10]. The remaining 
requirements of a storage medium will be presented in the 
next section. In will be seen that magnetic bubble domains 
can meer rhese requirements as well. 
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S. BUBBLE DOBAIH DEVICES 



This section will discuss the basic operations necessary 
to support bubble domain devices. These operations include 
bubble propagation, bubble domain generation and bubble 
domain detection. Some basic bubble memory device 
organizations will be presented along with the theory and 
problems associated with these organizations. 

The effect of a bias field on predefined tracks was 
explained as the basis for bubble domain propagation. These 
tracks are in fact analogous to conventional electrical 
transmission lines in that the track carries a signal 
(bubble) to various parts of the system. To meet the needs 
of data storage it is necessary to be able to "field access" 
the propagation track (viz., access a specific location). 
This implies multiple tracks (for more than one bit) on a 
bubble domain device that are all controlled and 
synchronized by one external magnetic field applied to the 
entire device. By rotating this field, known as the drive 
field, a magnetic wave can be caused to travel through the 
device. The bubble domains "ride" this magnetic wave and, 
thus, propagation takes place [Ref. 2: pp. 16-17]. Of 
course, it is necessary to be able to make the bubble 
domains change their direction of movement. Special 
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periralloy circuits have been designed to provide this 
function. straight tracks in the form of "T-bar<' circuits, 
combined with special 90 degree and 180 degree corners, form 
a basic storage array [Ref. 3: p. 87]. The shape is 
usee because of the magnetic field effects found around the 
long stem of the "T”. Bubbles that move up this stem are 
trapped under the crossbar. As the drive field rotates, the 
bubble follows around the tep cf the "T*', eventually moving 
perpendicular to its original direction (see Figure 2.2). 

The operation of bubble domain generation involves the 
creation of bubbles (writing 1 bits) within the device. 
Most generation is dona by a process called nucleation. A 
current of a few hundred milliamps, maintained for 
approximately 100 nanoseconds, is used to create a localized 
field in opposition to the bias field. This reverses the 
magnetization on the film, which causes the creation of a 
new bubble -- its size and position being finally stabilized 
by the bias field [Ref. 4; pp. 3-7]. It is noted that the 
process of nucleation is temperature sensitive and an 
implemented system must provide a means of varying the 
gereration current to meet large temperature changes (failed 
nucleation or multiple nucleations can occur) . 
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There are several approaches to the problem of bubble 
domain derection, . or reading bits. One technique is a 
non-destructive readout scheme. k magnetic dcmain has 
associated with it a small magnetic field. As the bubble 
passes a suitable sense amplifier detector circuit, there 
will be a small change in the resistance of the circuit due 
to the magnetic field of the bubble. This detector is icnown 
as a magneto-resistive sensor and has the advantage of being 
a passive (no overhead) detection scheme. Unfortunately, 
the ''signal'’ that is measured, or read, is but a fraction of 
the total power of the bubble domain. The second approach 
is one of a destructive readout. The bubble domain is 
side-tracJced onto a special detection/generation track. 
Here the full power of the domain is sensed (causing the 
destruction of the bubble if one is present) for a stronger 
readout signal. The bubble (if present before readout) must 
now be re-generated and returned to the storage track [Ref. 
5: p. 41]. This re-nucleation obviously requires more power 
and more supporting devices than the passive readout 
schemes. 

The operations possible with magnetic bubble domains can 
result in a wide variety of architectures for bubble 
devices. Some of the more sophisticated designs will be 
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presented in Section D cf this chapter. 4n explanation of 
the first, and simplest, bubble domain device will be 
discussed here. 

An analysis of the magnetic device from a top-level view 



reveals 


a basic structure 


as seen in 


Figure 2.3. 


All 


dev ices 


will correspond to 


this 


struct 


ure and, by 


some 


means , 


implement the funct 


ional 


blocks 


as seen in 


this 



figure. Only the function of redundancy management was not 
discussed in the above sections. This is basically the 
issue of how manufacturing techniques result in a certain 
chip yield (viz., the us eable portions of each bubble chip) . 
It is sufficient to say that various mechanisms are 
available to provide redundant storage capability in a 
device and to keep a map cf this redundancy. One method 
will be discussed in Chapter IV, Section A. 

Magnetic bubble devices are serial storage devices with 
block access capabilities. They are similar to conventional 
electromechanical media, but with several major differences. 
Bubbles can be stopped and started at the bit level while 
most devices are blcck-or iented at a larger data volume. 
Bubbles do not have mechanical addressing aids like 
start-of-ta pe , disk tracks and sectors or optically-sensed 
index markers. Some other means of identifying and locating 
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Figure 2.3 Basic Magnetic Device Functions 
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data is necessary. It is the chosen means of addressing 
that influences the device design of bubble storage. 

The simplest magnetic bubble domain device uses the 
shift register organization. This is depicted in Figure 
2.4(a). Bubble domains rotate around a fixed, closed loop 
with a simple generator and detector circuit. Average 
access times require propagation of a bubble through half 
the register. Transfer rates are dependent on serial 
bit-by-bit transfer through the detector. This simple 
device points out the three operational characteristics 
(which the shift register does not address efficienrly) that 
influence the design of bubble devices: (1) need for high 

data density; (2) fast access time; and, (3) fast transfer 
rates . 

The major/minor loop chip organization depicted in 
Figure 2.4(b) was the first attempt to address the need for 
improvement in these characteristics. This scheme is 
basically one of block transfer between the miner storage 
Iccps and the major operational loop. Bi-directional 
transfer gates allow a block of data equal (in bits) to the 
number of minor loops to be transferred to/from the major 
Iccp in a single operation. Transfer of all bits in 
parallel is achieved by a pulse to the common transfer bar 
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Figure 2.4 (a) Shift Register Architecture, 
(b) Major/Minor Loop Architecture 



between the majcr loop and the minor loops. The minor loops 
rotate in synchronization with the major loop. The major 
locp makes one revolution to perform its operation, then the 
data on the major loop is read tack to, or written into, the 
miner loops. This clearly has the advantage of being a 
simple, easy-to-build device that provides some degree of 
increased data storage and access times. However, this 
device, implemented as a single entity, still suffers from 
serial readout and slow external transfer rates. 

The next section will digress to discuss the history and 
development of bubble domain device technology. It is 
presented merely as a histcrical perspective to provide the 
context for the discussion cf architecture and technology in 
Section D of this chapter. 

C. eiSTORT AHD DEYBLOPMEHT 

Bubble domain devices are a relatively new technology. 
The discovery of garnets, a glasslike substance, in 1956, 
allowed the fabrication cf an environment condusive to 
magnetic domains. In 1959, the first bubble and serpentine 
domains where observed in certain ferromagnetic substances. 
A. H. Bobeck, of Bell Telephone Laboratories, presented the 
first description of bubble devices at the 1967 
International Magnetics conference. Bubble domains were 
ignored at that time. [Ref. 6: p. 3] 
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The debut of the bubble domain cccured in 1969, when 
Bobeck, at the INTERMAG conference, updated his 1967 
presentation. He clearly showed the feasibility of 
controlled babble propagation in a shift-register device, 
along with bubble generation, replication and detection. 
For the first time, bubble domains were seen in the context 
of mass memory media. The technical interest generated at 
that conference scon had an effect on the business 
community. 

Bell Systems, where the first bubble devices were 
designed, utilized this technology for repertory dialers, 
voice message recording and fixed-head-file replacement. 
Hitachi was the first company to announce a magnetic bubble 
memory product (Oct 1975) which was an 18-chip, 32K byte 
unit intended for office machines. Hewlett-Packard guickly 
followed with applications in desktop calculators, 

Texas Instruments introduced the first general purpose 
bubble device in 1977, This is a 92K bit memory module 
which they utilized in their portable terminals. It is 
interesting to note that at this time several of the largest 
semiconductor memory manufacturers (Intel, Signetics, 
Rockwell International and National Semiconductor) entered 
the arena of bubble devices. 
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The early 1980's 



hav€ brought the advent of 1M byte 



buttle devices with transfer rates in excess of 800 

Kbits/sec. A detailed analysis and comparison of the 

different memory technologies and applications will be 
presented in Chapter III. The historical development of 
buttle memory devices can be referenced to the basic 
characteristics and operations presented in this chapter. 
The driving inpetus has been on providing denser packaging 
(more bits ) , faster access times and higher transfer rates. 
All of these factors have been necessarily constrained in 
the context of marketability and manufacturing costs. These 
considerations have produced many newcomers into the field 
along with revolutionary designs and architectures for 
magnetic bubble devices. However, the development of a new 

technology that must simultaneously compete with established 

technologies (semiconductor, disk) has proven to be a 
liiriting factor in the advancement of magnetic bubble 
devices (TI and National withdrew from the market in 1981 
for reasons of profitability) . 

D. CURRENT TECHNOLOGY AND ABCHITECTOBE 

The attempt to improve the performance characteristics 
of bubble domain devices has proceeded along three distinct 
paths. First, has been the improvement of the components 
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making up the bubble device itself (viz., sense amplifiers, 
garnet substrates; etc.)* Secondly, there has been much 
effort directed at finding an optimal architecture for the 
basic major/mincr loop organizaticn . Finally, the extensive 
use of support circuitry and sophisticated controllers is 
presenting a more simplified logical view (as seen 
externally) of magnetic bubble devices. 

The design of physical compcnents for the bubble devices 
is inherently coupled to the issues of magnetism, field 
electronics and garnet manufacture. An extensive discussion 
of these topics, however, is not within the sccpe of this 
thesis. Therefore, only mention cf the areas cf work in 
current research will be made here. The coil drivers, as 
originally described, produced a sine wave which propagated 
bubble domains throughout the device. These sine waves, 
which start and stop precisely, are difficult to implement 
at a low cost and have, therefore, been replaced by devices 
that generate triangular or trapezoidal wave forms [Ref. 5: 
p. ]• Bubble detection, whether destructive or 
non-destructive, has ncn-trivial current requirements for 
the sense amplifiers. A reduction in the number of and 
power requirements for current sources is a primary goal of 
detection circuit design. Finally, the issue cf high bit 
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density per unit cost, as in all memory devices, is being 
addressed by new garnet substrates. The work in this area 
has the goal of reducing the size of the bubble domains and 
putting as many tracks as possible on a chip while avoiding 
inter-bubble interference [Ref, 7: p. 63]. Current 
technology is supporting 1 Mbit devices with areas of less 
than one square centimeter and with a bubble domain diameter 
of two (2) microns. 

The first bubble domain device architecture, the shift 
register, suffered from two main inadequacies; (1) a single 
defect in the shift register chain resulted in a bad chip; 
and, (2) data just entered had to be cycled through the 
entire shift register chain to be read, resulting in slow 
data access. The major/minor Icop design addressed these 
problems. Data is generated in a major loop, circulated, 
read and rotated back ro be restored in the original minor 
locp positions. Shorter cycle times are achieved if this 
need to restore data is removed. This idea was incorporated 
into the "block replicate" architecture. This is a 
multilcop arrangement where the minor loops communicate with 
a read track via replicate/transfer gates, allowing reading 
without disturbing the miner locp data (see Figure 2.5). 
Erasure is accomplished by activating transfer without 
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Figure 2.5 Block/Replicate Architecture 
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rsplicate. A separate write track allows block data to be 
written to the aincr loops via transfer-only gates. The 
idea behind the replicate/transfer gate is that a bubble 
domain is replicated (by splitting or nucleating a new 
bubble) and then transferred to the read track for 
processing by the detector. The conventional major/minor 
Iccp design did this one bit at a time on the major loop 
whereas the block/replicate design replicates, in parallel, 
all the minor loop bits in a block. 

The physical makeup of bubble domains and their 

resulting interactions requires that minor loops have bubble 
doiains two (2) bits apart (viz., an empty position between 
every position where there could be a domain) . 

Consequently, a major loop or read/write tracks could only 
generate on every other cycle, that is, they would cycle 
once uselessly while the minor loops cycled to bypass the 
empty positions on the major loop. Data can be read on 

every cycle by splitting the data storage into odd bits 

(loops) and even bits (loops) [Ref. 3: p. 95]. This 

architecture is depicted in Figure 2.6. To perform a wrine 
operation, the entire block is generated in both write 
tracks. The odd and even generate tracks are aligned 

simultaneously with the miner loops and the wrire takes 



31 



Detector 



r 



€ 

€ 



\ 




1 




cu 




cn 




-U 


U 


0.1 


03 




<D 


0 


4J 


u 


4-1 


0 I 


•H 




cn 




JQ 


rH 


G 


, 

1 






<\S 




G 


Q) 


u 


0 1 


(D 




4J 


c , 


> 






-H 1 


(D 






^ 1 





>f 

y--:, 






(S> 

cu 

4J 

nJ 



G 

G 

< 




U 

o 

G 



T3 

TJ 

0 



€ 



U 

0) 

M-l 

cn 

c 

CI3 

Eh 



€ 



€ 



>- 



ii < 




<D 

U 



32 



Figure 2.6 Block/Replicate Odd/Even Arcliitect 



the replicated gates 



place. To perform a read operation, 
are activated on the odd and even srcrage loops. The two 
tracks are one bit apart so that the odd and even tracks are 
interlaced as they gc to the detector, providing a read on 
every bit position. 

All the multiloop architectures use redundancy to solve 
the problem of defects in chip manufacturing. Extra storage 
capacity is provided on the chip by having more minor loops 
than are actually required to meet the device memory 
capacity. Bad loops, normally discovered in factory 



testing, are 


located 


and put 


into 


some 


form 


of a 


map. 


Defective loop 


addresses 


are usually s 


tored 


in a 


PROM 


within 


the bubble ccn 


troll er 


cr in 


seme cf 


the 


redun 


dant 


loops 



themselves. [Ref. 3: p. 37] 

To become an economically practical and versatile 
device, it is essential that bubble memories present a 
functionally simple and logical view to potential users. 
Much effort has been put forth in the area cf support 
circuitry which handles the low-level functions involved 
with the management of bubcle devices. The biggest addition 
to the support circuitry has been in the area cf bubble 
memcry controllers. These controllers (which are usually 
40-pin HMOS devices) provide bus interface, generate all 
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system timing and control, maintain memory address 
information and process the user’s external software 
requests and commands to the bubble devices [Ref. 8: p. 57]. 
The conceptual purpose of the controller is to make the 
magnetic bubble memory lock like a peripheral tc the host 
computer. The sense amplifiers used for detection have been 
incorporated to include multi-channel capaoilities (viz., to 
handle parallel readouts from more than one device to allow 
high data transfer rates) . This results in a logical memory 
organization which can span devices, where *'n" is the 
number of bits in the host system's word size or data bus 
size. Data protection and save-circuitry have been provided 
to prevent bubble ccntamicaticn in the event of a power 
loss, which can lead to a situation where loops are not 
rotated back to their starting point. This is necessary for 
correct addressing. The controller, utilizing a bad-loop 
map, also automatically substitutes redundant loops for bad 
loops on a chip. 

The current architecture and technology of bubble domain 
devices are influenced by the need tc compete with existing 
secondary memory devices. Consequently, much effort is 
being put into both the physical manufacturing of the bubble 
devices as well as into the logical architecture and user 
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interface. It is clear -hat any architecture must allow 
magnetic bubble memories tc be easily interfaced to existing 
conputer systems. 

The next chapter will provide an analysis and comparison 
of magnetic bubble devices to current memory technologies, 
with particular emphasis on the specific strengths and 
weaknesses of magnetic devices. Applications for magnetic 
devices will also be discussed in depth. 
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III. APPLICABILITY Cf flAGNETIC BOBBLB MEMOBIES 



A. CCBPARISON OP BASS SIOBAGE TBCHNOLOGISS 

Magnetic bubble memories should not be considered to be 
in direct competition with existing, well-established forms 
of non-volatile storage. Bather, bubble memories should be 
viewed as a secondary storage technology which can fill the 
well known capacit y/cost and performance/cost gaps in 
conventional memory hierarchies. 

In Figure 3. 1 are plotted the areas inhabitable by a 
wide range of memory technologies. As can be seen in Figure 
3.1, there is a large gap between core technology and 
fixed-head disk technology. At present, attempts to fill 
this gap are being made by electron-beam accessed memories 
(SEAM) , charge-coupled devices (CCD) and magnetic bubble 
memories (MBM) . Although EBAM probably has the lowest 
potential cost per bit of the three technologies, it 
reguires fragile vacuum components which severely limit 
applications. 

CCD technology has not sufficiently surpassed dynamic 
RAM technology to become preferable from either an economic 
or a performance standpoint. Currently, CCD memory access 
times (approximately 100 micrcseconds) are much slower than 
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Figure 3.1 Memory Technology Access Times and Capacities 



these of semiconductor BAM (70-2000 nanoseconds) . An 
additional disadvantage of CCD memory is its suscept ibility 
to alphaparticle radiation. As is the case with SAM 
technology, as memory densities have increased, the 
capacitance needed to store the charge for each bit has 
decreased, making it more probable that an alphaparticle 
strike will cause a soft error. [Hef. 9] 

Magnetic bubble memories, on the other hand, have the 
advantages of non- vo latili ty , higher density and lower cost 
per bit over CCD and RAM technologies, and the advantage of 
solid-state technology over BEAM. Evaluation of the 
performance of magnetic bubble memories is usually 
accomplished utilizing the same parameters as those used for 
evaluation of floppy disk devices. Valid comparisons can be 
made between the performances of the two technologies 
because of their common roles as secondary storage 
technologies . 

Magnetic bubble memories are organized as shift 
registers for block access, with the natural block size, 
referred to as a page, being equal to the number of minor 
loops. Access to data is accomplished by shifting bubbles 
in the minor loops and transferring the appropriate page to 
the major loop. The data is then read or written by 
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shifting bubbles around the major loop. This organization 
allows for the computation of both a seek time and an access 
time to parallel disk performance measures of the same 
names. 

The seek time of disk systems is normally taken to mean 
the time it takes to move the read/write head tc the track 
containing the desired data. This is analogous to rotating 
the minor loops in a magnetic bubble device to place the 
desired page on the major loop. Seek time for a bubble 
memory device is, therefore, dependent on the number of 
shifts reguired in the minor loops and the shift rate of the 
device. Current bubble memory architectures contain from 64 
tc 4096 pages in the miner loops and have a relatively 
common shift rate of 100 KHz £ Bef . 10: p, 29], Taking 
worst case to be a complete rotation of the minor loop at 10 
microseconds per shift results in worst case seek times of 
6.4 - 41.0 milliseconds. Assuming half of these values to 
be an average yields average seek times of 3.2 - 20.5 
milliseconds. 

Combining this seek time with the time reguired to 
rotate to the first bit of data in the read or write track 
yields the data access time for a magnetic bubble device. 
3y assuming an average major loop size of 144 bits (the 
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actual major loop size of the ITB0203 92K bit device) and 
applying the shift rate of 100 KHz, a worst case read/write 
delay time of 1.44 milliseccnds is obtained. Combining this 
delay with the previously computed seek time results in 
average access times of 3.92 - 21.72 milliseconds for 
magnetic bubble devices, which is considerably faster than 
the average access times of 115 - 500 milliseconds for 
floppy disk devices. [Ref. 11: p. 1] 

The data transfer rate for a magnetic bubble memory is 
determined by the number of bits per page, the shift rate of 
the device and the number of cycles required to transfer the 
page of data out of or into the device. Basic transfer 
rates are 40 - 100 Kbits/second for individual magnetic 
bubble device organizations. These rates may be greatly 
improved by operating magnetic bubble devices in parallel 
(mere than one device at a time) . Bubbl-Tec’s HDC/HDB-11 
system, for example, utilizes four 1M bit bubble devices in 
parallel to attain a peak transfer rate of approximately 800 
Kbits/second [Ref. 10: p. 29]. Such uses of parallel 
i mplementaricns allow magnetic bubble systems tc achieve 
transfer rates in excess cf those cf floppy disk devices 
(125 - 500 Kbits/secend) . 
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The solid-state nature of magnetic bubble devices is a 
great contributing factor to their reliability. Since there 
are no moving parts, the maintenance normally associated 
with electromechanical devices is avoided. An additional 
characteristic of magnetic bubble technology is very low 
error rates. Manufacturers’ tests have produced hard error 
rates of 1 in 1 trillion bits and soft error rates of 1 in 1 
billion bits [Hef. 11; p. 2], A hard error occurs when a 
bit is read incorrectly during several consecutive read 
operations. Soft errors occur when a bit is read 
incorrectly on one read operation and correctly read on 
subsequent operations. 

The final area of evaluation deals with the physical 
characteristics of the devices. Some additional properties 
attributable to the solid-state nature of magnetic bubble 
devices are low power requirements, light weight and 
ruggedness. Magnetic bubble memories may be sealed from the 
outside world and, thus, are immune to the effects of dust, 
humidity, dirt and vibration. Like most other technologies, 
however, magnetic bubble memories do suffer temperature 
limitations. This limitation is due to the required 
matching of the temperature coefficient of the chip garnet 
to that of the permanent magnet. Currently, the specified 
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operating tempsrature range for most bubble devices 
0 to 50 degrees Celsius but ncn-cperating temperatu 
range from -40 to +35 degrees Celsius without less 
[Hef. 11: p. 2]. 

Magnetic bubble memory technology can provide 
density, low power, rugged, reliable and non-volati 
storage media. It is expected that the cost of 
memory devices will continue to decrease and their 
will continue to increase, making them an even mere 
alternative mass storage technology [Ref. 12: p. 38], 
B. APPLICATIONS OF MAGNETIC BOBBLE MEMORY 
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The variety of applications for magnetic bubble memories 
is steadily increasing. As system designers begin to take 
advantage of the properties of magnetic bubble memory 
devices, increasing numbers of bubble memories are being 
designed into sys-ems, added on as back-up storage or used 
to replace other storage technologies. The variety of 
applications for magnetic bubble devices includes word 
processing, voice synthesis, portable terminals, 
ccmmumications, numerical machine tool controllers, 
aerospace and defense applications as well as others [Ref. 
12: p. 38]. 
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The high performance and low cost of magnetic bubble 
devices are the two major characteristics driving most of 
the applications. Current prices for bubble memories are 
roughly 100 millicents per bit with projected decreases to 
less than 30 millicents per bit in mid 1982 [Ref. 10; p. 
26]. Access times of currently available bubble memories 
are approximately ten times faster than these of movable 
head disks and the data transfer rates of the two 
technologies are comparable [Ref. 13; p. 53]. Some magnetic 
buttle memory systems have, however, attained data rates of 
96 Mbits/secend and a system addressability of 4096M bits 
[Ref. 14; p. 141], Another performance advantage is the 
simple addressing scheme which requires only an address and 
a read or write signal. It is estimated that a bubble 
memcry controller would have 1/4 to 1/2 the complexity of an 
eguivalenr disk controller [Ref. 15; p. 37]. 

Another major contributing factor to the increase in 
applications of magnetic bubble devices has been the 
development of custom interface and support circuits. These 
integrated devices free the system designer from the need to 
become intimately familiar with the electrical and magnetic 
properties of bubble memories, thus, allowing mere time to 
be spent on the system aspect of the application. There are 
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disc many complete magnetic bubble memory system assemblies 
which can be plugged directly into DEC LSI-1 Is, Intel 
MOITIBUS systems, TI 9900s, S-100 systems and STD-bus 
machines [Ref. 10;p. 26]. Custom constructed systems 
reguire no separate chassis cr power supply and can be 
constructed entirely cn printed circuit boards that can plug 
directly into existing bus structures. 

Research conducted by IBM (San Jose, California) has 
indicated that magnetic bubble memories must have a capacity 
of at least 4M bits in order tc challenge RAM devices on the 
basis of cost. Bubble memory devices are approaching this 
density with 1M bit devices currently cn the marlcet 
(TIB1000, Intel 7110 and National NEM2011) . Rockwell has 
demonstrated a 4H bit device developed under military 
contract and Bell Labs has fabricated an experimental 11. 5M 
bit bubble device which is only 1.3 inches square. [Ref. 9] 

Since magnetic bubble memories are of a solid-state, 
non-volatile technology, they are ideally suited for 
portable applications as well as for providing additional 
storage for traditional and parallel processing systems. 
The compactness, low power requirement, quietness and low 
maintenance requirement have made bubble devices ideal for 
office equipment applications. Additionally, the ruggedness 
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IV. DBSCRIPTIOH OP T8E DEV ELOPMEMT AL SYSTEM 



A. TIB0203 MAGNETIC BOBBLE MEMOBI 

The TI30203 magnet ic- bubble memory is a non-volatile, 
92,304 bit, bubble memory chip. The chip is manufactured as 
a 14-pin dual-in-line package which contains the coils for 
providing a rotating magnetic field, a permanent magnet ro 
maintain data storage and a magnetic shield structure. The 
TIE0203 is designed as a conventional major/minor loop 
architecture with 144 minor loops (circular shift registers) 
of 641 bits each. Transfers of data to or from the single 
major loop are done in parallel. The major loop conxains 
the detector circuits as well as the generate, replicate, 
and annihilate control functions, [Ref. 16; p. 11] 

Detection is accomplished in a passive scheme utilizing 
two magneto-resistive elements. These elements are out of 
phase with each other and operate on alternate cycles (viz., 
alternately reading bit positions) . Noise produced in the 
circuit due to circuit layout, control pulses and from the 
magnetic fields is reduced by cancellation when the elements 
are used with a bridge circuit and an external differential 
amplifier. [Ref. 16: p. 14] 
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Generation of bubble domains is done via nucleation as a 



specified current pulse is sent through the generate loop. 
Transfer-in is accomplished as follows: (1) a data string 
equal in length to the number of minor loops (called a page) 
is generated; (2) this string is shifted such that the first 
bit is positioned over the first minor loop; (3) the 
transfer gates are energized. Each of the 641 minor loop 
page positions is useable. Transfer-out is accomplished in 
the reverse manner. Once a page is on the major loop it is 
eligible for one of two operations in a serial bit-by-bit 
manner: replicate or annihilate. [Ref. 16: p. 11] 

A replicate operation causes the bubble domain to be 
stretched, then split in twc with one bubble diverted to the 
detector and the other diverted back to the major loop and 
sutseguently to the minor loop for storage. This procedure 
provides for a non- destructive readout. Annihilation is 
provided by transfering the bubble domain off the majcr loop 
and into the detector track where it is propagated off the 
chip. 

The chip is manufactured with 157 minor loops, which 
provides a redundancy of 13 minor loops. Defective minor 
loops are identified at the factory and a map is printed on 
the device before shipment. The map has the addresses of 
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defective loops printed in hexadecimal and it is the 
responsibility o.f the controller to prevent the use of these 
bad loops, [Ref. 16: p. 12] 

The coil drive for the TIB0203 uses triangular wave 
forms generated from two orthogonal coils that are driven 90 
degrees out of phase. A cycle is the time required for the 
magnetic field to rotate 360 degrees. Minor loops are 
spaced two bits apart with one bit separation on the major 
locp. Therefore, all major loop operations are performed at 
half the drive frequency. The drive frequency for the 
TIE0203 is 100 KHz. [Ref. 16: pp. 13-14] 

The TIB0203*s components and specifications are 
ccxpletely described in Reference 16, the "TIB0203 
Magnetic-Bubble Memory and Associated Circuits Manual.” 
Operating characteristics, block diagrams and environmental 
conditions for the function timing generator, sense 
amplifier, function driver, coil driver and thermistor are 
also included in this manual. 

B. PC/M MBB-00 BOBBLE MEMORY SYSTEM 

MBB-80 Bubbl-Board is the registered trademark of a 
magnetic bubble device marketed by Butbl-Tec, a division of 
Pacific Cyber/Hetrixs, Inc., located in Santa Clara, 
Califcrnia. The MBB-80 is a complete bubble memory storage 
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system designed to fce compatible with all 8-bit and 16-bit 
micrccomputers that utilize Intel's MULTIBUS architecture. 
The board provides 92,304 eight-bit byres of ncn-volatile 
memory as well as all required ccntrcl logic and buffering 
necessary to interface to the MULTIBUS system. 

The entire system is contained on one multi-layer, 

printed-circuit board. Ibe printed-circuit board has the 

standard MULTIBUS dimensions and requires one card-cage slot 

on the MULTIBUS. The board is built around eight (8) of the 

TIE0203 bubble memory devices described in the preceding 

section. All necessary support chips are included cn the 

single board. The functions cf the controller are provided 

in hardware and include the following primitive commands: 

Fill Buffer Read Multiple Pages 

Empty Buffer Initialize 

Write Single Page Read Status 

Read Single Page Enable/Disable Interrupt 

Write Multiple Pages Reset 

Host interface with the controller is via memory-mapped I/O, 
using sixteen (16) consecutive user-defined locations in the 
CPU address space. The MBB controller can be set to 
recognize any sixteen consecutive addresses cn a 16-line or 
20-line address bus. These sixteen addresses correspond zo 
sixteen registers in the bubble memory controller which are 
utilized zo read status information, set M3B-80 board 
configurations and perform read/write operations. 



49 



The MBB-80 typically consumes less than 20 tfat^s of 
power. Voltage requirements consist of +5 volts at 1.5 
amperes, +12 volts at 200 milliamps and -12 volts at 700 
milliamps. Logic is provided to protect stored data during 
power-up, power-down and when unexpected power failures 
occur. The M3B-80 can operate in a temperature range of 0 
to 50 degrees Celsius. The magnetic environment is less 
than 20 Oersted at the bubble device and the board weighs 18 
ounces. A complete description of the MBB-80, its 
printed-circuit board layout and schematic diagrams are 
ccrtained in Reference 17. 

C. DEVELOPHENTAL STSTEH 

The INTELLEC Double Density Microcomputer Development 
System (INTELLEC OD KDS) with an iSEC 86/12A single-board 
computer, an iSBC 202 double density disk controller and the 
CP/M-86 (version 1.0 as modified by Reference 18) operating 
system (hereafter referred to as CP/M-86) is the host system 
for this implementation. This system is located in the 
Microcomputer Laboratory at the Naval Postgraduate School, 
Mcnterey, California, and will be described in greater 
detail in the next section. This host system was found to 
have a severe inadequacy in the area of software development 
tods. The current CP/M-86 operating system had no 
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interface to a printer. The CP/M-86 resident text editor 
(EE) consists of relatively primitive comicands which do not 
allow a wide range of text manipulation. For these reasons 
an alternative system had to be chosen for use in software 
development . 

‘The text editor chosen was the screen-oriented editor of 
the Altos OCSD Pascal (Version 1.4b) system. Required Intel 
8080 and Intel 8086 assembly language programs were written 
in files created utilizing the Pascal system editor. The 
overall efficiency of software development was greatly 
enhanced by the use cf this editor. Once a file was 
coirpleted, it was transferred to the Altos CP/M-80 (Version 
2.2) system by executing the 8080 assembly language program, 
CPXFER, which executes under CP/M-80 (hereafter referred to 
as CP/M) . CPXFER is a Naval Postgraduate School (NPS) 
Microcomputer Laboratory utility program that provides for 
the intersystem transfer cf formatted files between the 
Altos CP/M and Pascal operating systems. 

Once transferred to the CP/M system, Intel 8080 and 8086 
assembly language programs could be assembled utilizing the 
standard, CP/M resident, Intel 8080 assembler (ASM) or Intel 
8086 cross-assembler (ASM86) , respectively. Errors 
encountered during assembly could be corrected utilizing the 
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CP/M resident editor (TED) and a corrected copy cf the file 



transferred back to the Pascal system for purposes of 
consistency. Once a program is successfully assembled it is 
ready to be transferred to the INTELLEC DC MDS for 
execution. 

The Intel 8080 or 8086 executable files (.COM or .CMD 
respectively) are transferred to the INTELLEC DD MDS by 
utilizing the NPS Microcomputer Laboratory utility program 
called SDXFBR for intersystem transfer of files between the 
single density INTELLEC MDS and the INTELLEC DD MDS. Files 
can be transferred directly from any CP/M compatible disk, 
on either drive of the single density MDS, to any CP/M 
compatible disk on either drive of the double density MDS, 
utilizing SDXFER. 

All complete assembly language programs are maintained 
on the Altos UCSD Pascal system disks only. The Altos CP/M, 
double density MDS CP/M and double density MDS CP/M-86 
system disks contain only executable files. 

D. IMPLEMENTATION HOST SYSTEM 



The final implementation utilizes the previously 
mentioned host system consisting of an INTELLEC Double 
Density MDS system and iSBC 202 disk controller, both under 
the control of an iSBC 86/12A single-board computer, and the 



52 



CP/M-86 Operating system. Initial low level bubble memory 
testing was conducted utilizing the INTELLEC DD MDS and its 
resident Intel 8030 microprocessor. After initial testing 
of the device, all remaining development, testing and 
implementation utilized the iSBC 86/12A and its Intel 8086 
microprocessor instead of the Intel 3080. 

The INTELLEC DD MDS is a coordinated, complete computer 
system designed around the Intel 3080 microprocessor. The 
standard INTELLEC DD MDS system consists of an Intel 8080 
microprocessor, two (2) 32K byte fiAH memory modules, a 
monitor program with sir (6) fully implemented I/O 
interfaces and a front panel control module, used to provide 
a 256 byte bootstrap program, the eight (8) level bus access 
control circuitry and a real time cloclc. These system 
modules are contained in an eighteen (18) card chassis which 
features the Intel MULTIBUS, which supports multi-processor 
configurations and allows for "master-slave" relationships 
between modules. The one addition to the standard system is 
the use of an iSBC 202 double density disk controller module 
to handle the dual floppy disk drives. £Ref. 19] 

As previously mentioned, once pasr the initial testing 
phase, the INTELLEC DD MDS sysrem was operated with the iSBC 
86/12A. This was accomplished by removing the two memory 
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boards and the Intel 8030 CPU board and placing the iSBC 
86/12A in a bus-master slot (an odd numbered slot) in the 
INTELLEC DD MDS chassis. Ihe iSBC 86/12A is a single-board 
microcomputer based on the Intel 8086 16-bit microprocessor. 
Included on the board are 64K bytes of dynamic BAM, three 
programmable parallel I/O ports, programmable timers, 
priority interrupt control, serial ccmmunications interface 
and MULTIBUS interface control logic. [Ref. 20] 

The CP/M-86 operating system utilized with the host 
system is a product of Digital Research. The specific 
operating system used was Version 1.0 with the modifications 
made in Reference 18. CP/M-86 is a microcomputer operating 
system for Intel 8086 based microcomputers. CP/M-80, the 
predecessor of CP/M-36, was designed for Intel 8080 based 
microcomputers and, as nearly as possible, file 
compatibility between CF/M-80 and CP/M-86 has been 
maintained. CP/M-86 provides built-in utility commands and 
transient system programs. Additionally, the user has the 
ability to execute user-defined transient programs. The 
system transient programs include a dynamic debugger 
(DDT86) , a primitive text editor (ED) and an Intel 
compatible assembler (A3M86) . [Ref. 18] 
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The entire implementation host system is located in the 
Microcomputer Laboratory at the Naval Postgraduate School, 
Monterey, California. Each of the individual components of 
the system (INTELLEC DD MDS, iSEC 86/12A and CF/M-86) is 
described in great detail in the reference listed after the 
discussion of the component. 
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V. 



L0W-L5VEL BOBBLE DEYICB INTERFACE 



A. INTEL 8080 laPLEMENTATIOH 

Prior to interfacing the MBB-80 Bubbl-Eoard with the 
iSEC 86/12A, initial testing was conducted by interfacing 
the MBB-80 with the standard INTELLEC DD NDS system and its 
resident Intel 8080. The Intel 8080 was chosen for initial 
MBE-80 testing because of the authors' familiarity with 
Intel 8080 assembly language and because of the availability 
and utility of the existing CP/M-80 operating system and 
support programs (viz., DDT and TED). 

Before any software interfacing or testing could be 



attempted. 


the 


hardware interface 


between 


the 


MBB-80 


Bubbl-Board 


and 


the INTELLEC DD MDS 


syst em 


had 


to be 



ccnstructed and verified. This interfacing reguired the 
modification of power circuits within the HDS system and 
necessitated the addition of a manual power- prot ect switch. 
The modification of power circuits was reguired to provide 
the 0.550 amps at -12 volts reguired by the J1BB-80 
Bubbl-Board circuitry. The remaining power requirements of 
the NBB-80, 1.0 amps at +5 volts and 0.12 amps at +12 volts, 
are available on the standard MDS system's bus. The manual 
pcwer-protect switch was provided on an additional 
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dsvelcpment board and was required to protect the bubble 
devices during normal power-up and power-down. Bubble 
device contamination, as described in Reference 17, can 
result if the bubble devices are accessed while the power 
supplies are not within the specified tolerance of plus or 
minus 3 percent. The manual switch provides protection only 
during normal power-up and power-down. A more comprehensive 
power-protect system will be needed to provide full 
protection against inadvertant power loss in a production 



system. [Ref. 


17] 








Software 


interfacing 


and testing 


of the MBB-80 was 


conducted by 


writing and 


executing an 


Intel 8080 


assembly 


language prog 


ram called 


DIAG80.ASM (a 


program li 


sting of 


DIAGSO.ASb is 


contained 


in Appendix 


A) . This 


program 



utilizes sixteen (16) consecutive addresses, beginning at a 
program defined bubble memory controller base of OUOOOH, as 
registers for communication with the MBB-80. The Inhibit 
ROS/RAM signals provided by the bubble memory controller 
allow the placement of the controller base address and the 
sixteen registers anywhere in the on-board 64K bytes of EAM 
not in direct conflict with CP/M-80 usage. 

Initial attempts az execution of DIAG80 resulted in 
premature program termination. Attempts at debugging the 
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prcgram by using DDT failed because single-stepping through 



the program resulted in prccer execution. Full-speed 
execution, however, continued tc result in premature 
termination at unpredictable and unrelated points in the 
program, indicating either a timing or a device 
compatibility problem. Further investigation revealed that 
the termination of execution was accompanied by a bus 
timeout signal from the MCS system (the bus timeout signal 
is initiated when a bus request is made and no 
acknowledgment signal is received within a specified time 
interval) . 

Monitoring various signals with an oscilloscope led to 
the detection of an inconsistency between the monitored 
signals and the specifications on the MBB-80 circuit diagram 
provided in Reference 17. While checking the comparators 
(utilized to determine if an address on the bus is that of a 
bubble memory controller register) , it was determined that a 
signal of some sort was present on pin 7 of each of the 
three comparators. The circuit diagram indicated that these 
pins should all be connected to the common board ground. 
Open contacting the designers of the MBB-80, it was learned 
that the circuit diagram currently being distributed was for 
Version 3 of the MBB-60. The correct circuit diagram, for 
Version D, was acquired and testing resumed. 
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During subsequent calls to Pacific Cy ber/Metrixs 
personnel to confirm or question findings, it was learned 
that some special-purpose circuitry was connected to the 
ccmparators . This circuitry had been included for a special 
application design of the MEB-80 and was incorporated onto 
all beards currently being distributed. We were given the 
assurance of MBB-80 design personnel that this circuitry was 
in no way affecting the operation cf our Eubbl-Board and 
that we could verify this by ’♦grounding" pin 7 of all of the 
ccoparators. Temporary "grounding straps" were placed on 
all of the comparators to see if there was any affect on the 
operation of the MBB-80. Subsequent attempts at executing 
DIflGSO were all successful. Pacific Cy ber/Metrixs personnel 
were informed of our findings. As a result, the designers 
of the MBB-80 are currently considering the inclusion of a 
manual switch on future MEE-80 boards to allow the user to 
select or bypass the special-purpose circuirry. 

With DIAG80,ASM executing properly, initial testing of 
the MBB-30 was continued. Information was written into and 
read from pages of each device to verify that the bubble 
devices were error free. Additionally, information was 
written into the devices and power removed from the MBB-80, 
The MBB-80 was left for a 24-hour period and then data 
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retention was verified in each bubble device by reading back 
the previously stored information. Operation of the MBB-80 
was satisfactory and the Icw-level read, write, controller 
initialization and device initialization routines had been 
verified to function correctly. 

With initial MBB-80 interfacing and testing successfully 
completed and the low-level routines verified, advanced 
implementation and testing with the iSBC 86/12A was begun. 
The low-level routines were available for direct translation 
into Intel 3086 assembly language and the DIAG80.ASM program 
available as a model for future program construction. 

B. OSE OF THE CP/M-80 MBB-80 DIAGNOSTIC PHOGBAM 

The CP/M-80 diagnostic program, DIAG80.ASM, was designed 
and written for the purpose of testing the hardware 
interface between the MBB-80 and the INTELLEC DD MDS system. 
This program provides low-level routines which allow the 
user to verify correct write and read operations to and from 
the MBB-80. Although not originally intended to serve as 
such, DIAG80 can alsc serve as a low-level debugging tool to 
aid in systems program development. 

DIAG80 is executed by executing the DIAG30.COM file 
located on the CP/M-80 system disk. Execution will cause 
the MBB-80 controller and all eight (8) magnetic bubble 
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devices to be initialized in accordance with Reference 17. 
The MEB-30 controller base (defined in DIAG30 by a constant) 
must be set to 04000H utilizing the address selection 
switches on the MBB-80. The program will then, at the 
discretion of the user, cause an eighteen (18) byte page to 
be either written into cr read from one of the eight 
(8) magnetic bubble devices. 

The user has the option of entering an '*E'' for a read, a 
••Q” tc quit or a ••W” or any other character for a write. If 
the user-specified operation is to read a page, the user 
will be prompted for the single-digit bubble device number 
(0-7H) and the three-digit page number (000-280H) of the 
page to be read. The contents cf the specified page will be 
printed to the CRT along with the contents of the status 
register. If the specified operation is to write an 
eighteen (18) byte page, the user will be prompted for the 
twc-digit hexadecimal value to be written in addition to the 
bubble device and page number of the destination. The 
twc-digit value given by the user will then be written into 
all eighteen (18) bytes of the specified page. If the user 
types a "Q", to quit, then the program terminates and a 
return is made to the CP/H operating system. No error 
checks are made to verify correct entries by the user. If 
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input values are outside the specified ranges the program 
will not function reliably. 

C. INTEL 8086 INTERFACE CONSIDERATIONS 

The actual interface and implementation of the bubble 
memory system were accomplished utilizing CP/M-86 and the 
iSEC 86/12A single-beard computer. Several local 
modifications had to be made to the standard Intel iS3C 
86/12A distribution board. The following description is 
provided to allow the verification of a correct board 
configuration when either duplicating this thesis work or 
continuing research on this system. 

The address select pins for the iSBC 86/12A were 
configured to place the computer's on-board RAM in the 
lowest 64K byte segment. Iherefore, address select switches 
one (1) and eight (8) are "on”; all ethers are ”cff”. The 
following pairs of pins were connected together (jumpered) 
to provide the necessary interface to the locally modified 
Intellec DD MDS system: 3-4, 5-6, 66-76, 79-83, 87-89, 
92-93, 127-128 and 143-144. The above iSBC 86/12A 
modifications are necessary for the correct operation of the 
iSEC 36/12A within the Intellec DD MDS system and are not 
necessitated by M3B-80 Bubfcl-Bcard requirements. 
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The memory acquisition circuitry of the iSBC 86/1 2A will 
reference RAM on the iSEC 86/12A beard for addresses 0-64K 
and onboard EPROM for addresses OFFCOO-Of PFFF (hexadecimal). 
Any memory reference outside these two ranges will activate 
the MOLTIBUS acquisition circuitry. Consequently, bus 
override commands, or inhibit signals, issued over the 
MOITIBUS within the first 64K byte segment will have no 
affect on the iSBC 86/12A's RAM. This requires that the 
MEE-80*s controller base be placed at an address outside of 
the first 64K bytes. Since the MBE-80 controller utilizes 
memcry-mapped I/O to sixteen (16) consecutive memory 
locations, any 16 addresses that can be inhibited, will 
suffice. It was decided to provide the user with the 
ability to specify a segment base address for the MBB-80 
ccntrcller in all of the CP/M-86 diagnostic (low-level 
interface) programs. Since the MEB-80 can decode 20 address 
lines, the controller's base address space can be placed 
anywhere within the 1M byte address space that isn't 
occupied by RAM or 2PR0M (which cannot be inhibited) . The 
address specified to these programs must correspond to the 
address set on the MBE-30 address select switch. 

In addition to the MEB-80 controller memory address 
assignment, the interrupt structure also has an affect on 
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th€ iSBC 86/12A configuration. The MBB-80 has two modes of 
operation: single-page mode and multi-page mode. The 
single-page mode, which requires no interrupts and was 
implemented successfully or. the Intel 8080, also poses no 
problem for the Intel 8086. The multi-page mode, however, 
requires that specific timing requirements be met by the 
host computer in communicating with the MBB-80 controller. 
During transfers of data, the host must respond to the 
interrupts generated by the MBB-80 every 160 microseconds 
(signalling a completed transfer of one byte in a multi-byte 
transfer) . These interrupts can be either generated over 
the MULTIBUS as "hard” interrupts to the iSBC 86/12A or the 
iSEC 36/12A can "poll" (read) the status register that is 
within the address space of the MBB-80 ccntrcller. A 
detailed description of single-page mode, multi-page mode 
and the required interrupts is given in Reference 17. 

It was decided that the Intel 8086 implementation would 
be accomplished in steps. Firsr, a simple, single-page mode 
pregram would be wrirten utilizing the algorithms that were 
tested in the Intel 8080 implementation. Since the 
multi-page mode provides approximately four (4) times the 
effective transfer rate of single-page mode (45 Kbits/sec 
versus 11 Kbits/sec) , it was deemed essential to utilize the 
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multi-page mode of operation in the final operating system 
interface. This required a decision on the method of 
detecting and servicing interrupts, which led to the 
development of a multi-page mode program that could operate 
in the "polling" mode or use interrupts generated over the 
MDIIIBUS. To handle interrupts over the MULTIBUS, an 
additional modification was made to the iSBC 86/12A board; 
pins 72 and 80 were jumpered to allow lEI (interrupt one) on 
the MULTIBUS to be processed as interrupt type 16 within the 
iSEC 86/1 2A microcomputer via the on-board i8259 

programmable interrupt controller (PIC) . It was also 

necessary to connect the IE1 interrupt on the MBE-80 board 
itself, as described on page 2-3 of Reference 17, which 
causes MBB-80 generated interrupts to be seat over the 
MULTIBUS on IR1. Along with the modifications to the 
Intellec DD MDS power supply and to the MBE-80 board 
detailed in Section A of this chapter, all hardware 

interface requirements have now been described. 

D. INTEL 8086 IMPLEMENTATION 

The implementation of the MEB-80 Bubbl-Eoard with the 
Intel 8086 was divided into two phases, with each phase 
having specific goals. The first phase was the 

implementation of a program which uses the single-page mode 
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where the basic routines 



of operation on the MBB-80, 
developed in the 8080 implementation would be utilized. The 
goal of this phase was to verify the successful operation of 
the MBB-80 with the iSBC 86/12A hardware using the CP/M-86 
operating system. The second phase involved the 

implementation of a program which uses the multi-page mode 
of operation utilizing either the polling mode or interrupts 
generated over the MCLTIBOS. The goals of this phase were: 
(1) verify that the multi-page mode of operation works; (2) 
determine which interrupt method is most desirable; and, (3) 
prepare and test software routines that can be utilized in 
the final operating system interface. 

The single-page mode program, hereafter referred to as 
DIAG86S, was designed as a complete Intel 8086 assembly 
language diagnostic program for the HBB-80, requiring little 
operator intervention (as opposed to DIAG80.ASM — the 8080 
version) . The program will continuously test every byte in 
each magnetic bubble device, recording all errors, until 
execution is terminated by the user. Three basic functions 
were to be tested: (1) initializing the MBB-80; (2) reading 

frcm the MBB-80; and, (3) writing to the MBB-80. 

The algorithms developed in DIAG80 for initializing the 
MBE-80 controller and for reading and writing a physical 
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bufcfcls page (18 bytes) were net logically altered. A direct 
translation of these routines was made from 8080 assembly 
language to 8086 assembly language. 

It was considered desirable to utilize the Intel 8086 *-s 
segmentation features to allow the future use of the full 1M 
byte address space available in the processor. 
Conseguently , the simple ”8080 memory model” was rejected in 
faver of the "compact memory model” which utilizes multiple, 
user-controlled segments (see Reference 21, pages 7-9, for a 
complete description of these models). Code segments (CS) 
and data segments (DS) are used only for code and data 
respectively, while the extra segment (ES) is used to 
address the MBB-80 controller ports at a user-defined base 
address (see Reference 22 for a description of ASM86 and 
segments) . 

DIAG86S was written and tested. During debugging, 
routine code and logic errors were encountered but no 
problems relevant to this specific implementation were 
discovered. Execution of this program on the iSEC 86/12A, 
under the CP/a-86 operating system, achieved all of the 
stated goals for this phase of the 8086 implementation. A 
complete listing of DIAG86S.A36 is contained in Appendix B. 
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The mul“i-page nicde prcgram, hereafter referred to as 
DiaG86M, is a diagnostic program that performs the same 
functional diagnostic tests as DI&G86S. In meeting the 
stated goals of this phase in the Intel 8036 implementation, 
several important issues were addressed. first, the 
programming of suitable interrupt handling mechanisms to 
service both MOLTIBUS and polled interrupts from the MBB-80 
was necessary. Second, a method for evaluating the 
desirability of these methods was needed. Finally, the 
routines that performed specific bubble memory functions had 
to be in a form suitable for direct application in the next 
step of this thesis, the implementation of the interface to 
the CF/M-86 operating system. 

The two methods of handling interrupts are provided by a 
conditional assembly variable in CIAG86H. The boolean 
status of this variable (documented in the code) determines 
whether code is generated for a MULTIBUS interrupt or for 
the polled mode of operation. For the MULTIBUS interrupt 
(in addition to the above mentioned hardware modifications) 
three steps are required: (1) set up the interrupt vector 
in CP/M-86 low memory to handle the 121 signal from the 
MULTIBUS; (2) program a trap handler at this interrupt 
vector; and, (3) programming the i8259 PIC to recognize and 
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properly interpret the interrupt cooing in over IR1. A 
siitple semaphore, set by the trap handler and interrogated 
by the bubble routines, is utilized to signify the 
occurrence of an interrupt from the MBB-80. The use of the 
polled mode merely requires the interrogation of the 
interrupt flag register at port offset OFH in the bubble 
meirory controller. 

Both the interrupt mode and the polled mode were 
successfully implemented. Execution times for complete 
diagnostic runs were 47 seconds for both methods {timed with 
a conventional stopwatch) . Due to the extra code and 
hardware modifications required for vector initialization, 
the decision was made to utilize the polled mode in the 
CP/M-86 operating system interface. Although this approach 
limits a future application with multiple processes 
requiring priority interrupts, this approach is consistent 
with the polled interrupt structure utilized by disk systems 
that are generated and distributed with the CP/M-86 
operating system by Digital Research. It should be noted 
that the code and hardware modifications for the use of 
interrupt vectors included in this chapter are completely 
functional for future applications that require a 
prioritized interrupt structure using the MBB-80. 
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The bubble memory initialization routine used in DIAG86M 
is in the same form as that used in DIAG86S. However, the 
read and write routines used in DIAG80 and DIAG86S are based 
on using a physical, magnetic bubble memory, page number as 
an addressable unit for each transfer. Therefore, the 
foundation for the memory organization of the MBB-80 was 
developed which would be compatible with that expected by a 
CP/M disk structure. DIAG86M views the transfer as that of 
a logical CP/M sector of 128 bytes. Since a physical bubble 
page is 18 bytes and 128 is not an even multiple of 18, the 
last sixteen bytes of each logical bubble ••sector” (144 
bytes) will be ignored (wasted) . A logical CP/M sector 
consists of 8 bubble pages of which the last 16 bytes on the 
last page of a bubble ••sector” are not used. There are 640 
bubble pages per device (chip) , so there are 80 logical CF/M 
sectors (as well as 80 bubble ”sectors”) on each bubble 
device. The access of data on the Bubbl-Board now requires 
only a device number (0-7) and a ”sector^^ number (1-80) on 
that device. A routine to convert a ”sector” number to a 
starting page number of an eight page ”block” was written 
and tested. This routine takes into account the fact that 
the multi-page mode requires a ”skew” factor of 322 on each 
consecutive bubble page access. This skew factor allows the 
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rapid access of pages without making complete shifts of the 



maicr loops in, the magnetic bubble devices. Mathematically, 
the starting page number is computed as follows: 

SPN = ( (SN-1) * 12 ) mod 64 1 

where SPN = starting page number (0-640) 

SN = MBB-80 "sector" number M-78) 
mod = modulo division (remainder) 

A complete description of this "skewing" operation and the 

necessary programming considerations is provided on page 

3-13 of Reference 17. 

DIAG86M was written, tested and debugged in both the 
interrupt mode and the polled mode of operation. Execution 
of this program on the iSBC 36/12A, under the CP/M-36 
operating system, achieved all of the stated goals for this 
phase of the implementation. A complete program listing of 
DIAG86M.A86 is found in Appendix C. 

E. OSE OF CP/M-86 MBB-80 CIAGNCSTIC PfiOGHAMS 

DIAG86S.A86 is a single-page mode, 8086 assembly 

language diagnostic program for the MBB-80. Its purpose was 
to verify the correct operation of the MBB-80 under CP/M-86 
but it can be used as a functional diagnostic program. 
Since it operates in single-page mode, no supporting 

interrupt structure is necessary for execution of this 
pregram. 
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This diagnostic is invoked by executing the CIAG86S.CMD 



file on the CP/M-86 system disk. The program will print 
appropriate messages and then request that the user key in a 
four (U) digit, segment base address for the MBB-80 
controller. Only four digits can be keyed in, followed by a 
carriage return. Keying in more than or less than four 
digits, or invalid hex digits (viz. , not in the range 0-F) , 
will cause the printing cf an error message and the user 
will then be asked to re-enter the segment base address. 
This segment base address consists of the high order 16 bits 
of the 20-bit address that is physically set on the MBB-80*s 
address select pins. The address keyed in must match the 
MBE-80's address and the MBB-80 must be plugged into the 
INTILLSC DD MDS system with the power-protect switch 
enabled. Selection of a base address must follow the 
constraints as specified in Section C of this chapter. If 
these procedures are not followed, the program will not 
execute reliably (the program has no way of knowing where 
the MBB-80 controller has been physically placed in the 
address space or if it is correctly powered up) . 

The program will then begin the testing of every byte on 
the MEB-80 board. Each device will be tested, in turn, by 
writing and then reading back a random pattern (byte) one 
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page at a time. As each device is finished, a message so 
indicating will be printed. Once all devices on the board 
have been tested, a summary of errors (if any) for that pass 
will be listed and testing will automatically continue. 
When the user wishes to discontinue testing, the keying in 
of any character followed by a carriage return will 
terminate testing at the completion of the current pass. 
Any errors encountered will be listed, indicating the bubble 
device number (0-7 hex) , the bubble page number (000-280 
hex), the byte number within the page (0-11 hex), the 
pattern written and the pattern read back (in error) . The 
occurrence of an error does not halt testing. Testing is 
continuous until the user halts execution by console input. 
When the program is halted, control automatically returns to 
the CF/M-86 operating system. 

DIAG86M.A86 is a multi-page mode, 8086 assembly 
language, diagnostic program for the MBB-80. Its purpose is 
to provide a production version of a diagnostic program 
which runs under CF/M-86 and which can also he used to 
verify the correct operation of an MBB-80 Bubbl-Board. 
DIAG86M is functionally equivalent to DIAG86S.A36, except 
that DIAG80 runs in multi-page mode and thus, executes 
approximately four times faster than DIAG86S. 
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This diagnostic is invoked by executing the DIAG86M.CMD 
file on the CP/H-36 system disk. This program presents the 
same messages as DIAG86S and all instructions relevant to 
DIAG86S apply to DIAG86H. 

There are, however, some special notes regarding the 
execution of DIAG86M. As explained in Section D of this 
chapter, there are two possible versions of this program, 
differentiated by a conditional assembly switch. One 
version uses interrupts generated over the MOLTIEOS, while 
the other uses the polled mode which interrogates the status 
of the MBB-80 controller. The "sign on" message will 
indicate which version is running. Since the polled mode of 
operation is used in the final CP/M-86 interface, this 
version is found on the system disk. The MULTIBUS vectored 
interrupt version requires that the hardware modifications 
to the MBB-80 board's interrupt pins and the iSEC 86/12A's 
interrupt pins be made (as described in Section C of this 
chapter) before program execution begins. 

DIAG86M.CMD is the primary tool for performing 
diagnostic testing of MBB-80 Bubbl- Boards . It also provides 
a method of performing acceptance tests of newly purchased 
HBE-80 Bubbl- Eoards. The user-specified base address for 
the controller allows the testing of any MBB-80 that is 

currently plugged into the INTELLSC DD MDS system. 
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VI . CP/H-86 IMTEBFACE IMPLEMENTATION 



A. BOBBLE DEVICE STORAGE ORGANIZATION 

The CP/M-86 interface design consists of two parts: (1) 
the implementation of the MBB-80 such that it will be 
functionally equivalent to a floppy disk generated for the 
CF/M-86 operating system; and# (2) the generation cf a basic 
input/output system (BIOS) for the CP/M-86 operating system 
to include any combination cf disks and MBB-80 Butfcl-Boards. 
This section will describe how the MBB-80 Eubbl-Board 
logical interface is made to appear as a "standard" disk to 
the CP/M-86 operating system. 

CP/M-86, as does any CP/M system, uses two parameters 
when communicating with disk devices: tracks and sectors. 
The MBB-80 uses two different parameters: pages and devices. 
The translation of the 18 byte, physical, bubble page to 
that cf a 128 byte CP/M sector was described in Section D of 
Chapter V. This organization configured the MBB-80 as 
consisting of eight devices (0-7) , each with 80 "sectors" 
(1-80) of 128 bytes/sector . The remaining problem is that 
of mapping a CP/M track and sector tc a corresponding MBB-80 
device number and an MBB-80 "sector" number. 
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The BIOS in CP/H-86 has provisions for declaring the 
nuaiter of sectors per track on a given disk, as well as the 
total capacity of that disk (which implicitly implies the 
number of tracks) . It was decided that each MBB-80 "track" 
would consist of 26 sectors, which is equivalent to the 
number of sectors per track of a CP/M-formatted 
single-density disk. This guaranteed compatible, if not 
optimal, use of the built-in CP/M blocking routines which 
are designed for tracks that have 26 sectors (or multiples 
thereof) . 

Addressing each of the eight devices on the HBB-80 
Bubbl-Board requires additional software in that each 
incividual device must be separately addressed when 
accessed. Therefore, any logical storage organization that 
caused the overlapping cf logical storage units from one 
physical device to the next would have required additional 
software and, thus, incur a performance degradation. 
Ccnseguently , it was decided that any given MBB-80 "track" 
would be entirely contained on one device. Since there are 
26 CP/M-86 sectors per track on a single-density disk and 30 
"sectors" on an MBB-80 device, there are 3 "tracks" per 
device with 2 "sectors" not used (wasted) cn each device. 
Since there are 8 devices on an MEB-80 board, the total 
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capacity of the MBE-80 used would be 78K bytes on 24 
"tracks" with a total of 14K bytes not used (wasted). This 
firal s^o^age organization is shown in Figure 6.1. 

A method for mapping to this logical organization from a 
CP/M-36 sector call cr track call was needed. The track 
mapping was the simplest. Mathematically, the device number 
is computed as follows: 

DN = TN div 3 

where DN = HBB-80 device number (0-7) 

TN = CP/M-86 track number requested 

div = integer division (disregard remainder) 

For reasons of efficiency, this translation was implemented 

with tables rather than with arithmetic computations at the 

assembly language level. 

The sector mapping, however, presents a mere complex 
problem. As can be seen in Figure 6.1, bubble "sector" 
numbers range from 1-80 contiguously, across three "tracks", 
on each MBB-80 device. CP/M-86 uses a range cf sector 
numbers between 1 and 26 on each track for a single-density 
disk. Given a requested CP/M-86 sector and track number, 
the corresponding MBB-80 "sector" number is computed. 
Mathematically, the "secror" number is computed as follows; 

SN = (26 * (TN mod 3) ) + SEC 

where SN = MBB-80 "sector" number (1-78) 

TN = CP/M-86 track number requested 
mod = modulo division (remainder) 

SEC = CP/M-86 sector number requested 



77 




o 



o 



o 



o 



o 









■vD 




CO 




CN 








1 

CO 


\7 


\ 

\ 

vOv 


fH 


CN 




CN 


CN 


CN 




in 


m 


m 




r- 




!C0 


5-1 




o 




5-1 


U 


o 


u 




u 


u 




. u 




0 


0 


fO m 


0 


0 


0 


fCJ ^ 


0 


0 


0 


rO LO 


0 


\o\ 

-K 


Q 


4J 


4J 




4J 


4J 


■p 




P 


P 


p 


J-l 


4J 


\-p\ 


O 


a 


Eh 


u 


u 


o 


Eh 


u 


o 


0 


Eh 


u 




u 


Q) 


0) 




0) 


0) 


0) 




0) 


0) 


0) 




0) 




\oX 


in 


cn 




cn 


cn 


CO 




CQ 


CO 


CO 




CO 






























\N 


k' 




78 



Figure 6,1 MBB-80 Logical Storage Organization 
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Again, for reasons of efficiency, this translation was 
implemented via tables rather than computed with the 
assembly language. The term "(26 * (TN mod 3))" is derived 
in the table lookup at the same time that the CP/M-86 track 
is being translated to a bubble device number. 

Given an M3B-80 "sector" number (1-78) , the physical, 
starting bubble page number can be computed (this routine 
was developed during and is explained in the Section D of 
Chapter V) . For convenience, the formula for computing the 
physical, starting page number is repeated here; 

SPN = ( (SN-1) ♦ 12 ) mod 641 

where SPN = starting page number (0-640) 

SN = SBB-80 "sector" number (1-78) 
mod = modulo division (remainder) 

The computation of the physical, starting page number was 

implemented with arithmetic statements and repetitive 

structures in the assembly language. 

B. CP/H-86 BIOS CONSIDERATIONS 

1 . Structured Standards for the BIOS 

The CP/N-86 operating system, as written by Digital 

Research, contains three parts: the Console Command 

Processor (CCP) , the Basic Disk Operating System (BDOS) and 

the user-configurable Basic I/O Sysxam (BIOS) . The CCP and 

3DCS portions of CP/M-86 occupy approximately 10K bytes and 

are distributed as a single hexadecimal code file (CPM.H86). 
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Th€ CCP and BDOS communicate with physical devices via a 
well-defined interface in the BIOS. This interface is a set 
of call and return parameter conventions for the specific 
functions used when the CCP and BDOS communicate with the 
BICS, The BIOS contains all device-dependent code. A 
complete specification cf the functional operation of the 
CCP and BDOS, along with the description of the BIOS 

interface, is contained in the CP/M-86 System Reference 

Guide (Reference 21). This section will describe the 
approach used in structuring a customized BIOS which 
provides an interface to both conventional CP/M-86 

peripherals and the MBB-80 magnetic bubble device. 

CP/M-86, as distributed by Digital Research, contains a 
sample, skeletal BIOS which can be utilized by a user to 
configure a customized BIOS. This skeletal BIOS is written 
in 8086 assembly language. A primary goal of this 
implementation is to provide a BIOS that can be easily 
modified and maintained. It was therefore considered 

essential to develop a BICS that consisted of structured, 

logically f unct ional subroutines, within the constraints of 
the CP/M-86 physical component interface requirements. It 
was also considered necessary to provide adequate 
documentation within the program code. All subroutine input 
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and output parameters must be clearly defined. All modules 
that call a subroutine are listed in that called 
subroutine's documentation (in the code). The use of 
external branches out of a subroutine is not allowed and all 
subroutines terminate with a single "return” (viz., no 
subroutine is allowed to "fall through" to another section 
of code during execution) . Naming conventions for 
constants, variables, labels and subroutines are consistent 
and meaningful and all identifiers are located in 
alphabetical crder in logically-related sections for ease of 
location. 

Although the above rules may result in some 
less-than-optimal execution structures from the viewpoint of 
speed, maintainability and ease of modification are 
essential goals. The primary purpose of this implementation 
of a BIOS, to provide a useable magnetic bubble system, can 
only be fully realized in a system that will allow for the 
custom modification of the implemented hardware and the 
supporting software. 

2 . Structured Approach to the BIOS 

The CCP and BDOS portions of CP/M-86 are designed to 
interact with disks . Typically, an implementation of a 
specific disk unit, with a microcomputer running under 
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CF/M-86, involves only cne kind of physical disk unit. 
This, cf course, results in the simplest BIOS. However, the 
CCF and BDOS, in interacting with the BIOS via a standard 
interface, have a logical structure which will allow almost 
any combination of physical devices to be implemented in the 
BIOS. The only requirement is thar the BIOS preserve the 
standard interface to the rest of CP/M-86. It is this 
structural characteristic of rhe CF/M-86 operating system 
that was found to be very useful in this implementation. 

The interface between the portions of CP/M-86 that are 
relevant to this implementation concern the "logical disk" 
interface. The CCP and BDOS are “aware" of up to 16 logical 
disks, which CP/M-86 will address via the parameters disk 
number, track and sector. It is this interface which must 
be preserved by any CP/M-96 BIOS implementation. 
Additionally, this BIOS must support the combination of 
standard floppy disk devices and MBB-80 Bufcfcl-Boards. 
Consequently, a structured approach is used within the BIOS 
itself for this implementation. 

The BIOS is logically divided into four different areas: 
(1) standard CP/M-86 interface jump vectors; (2) subroutines 
which support communication with specific devices; (3) 
tables which define the physical characteristics and 
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configuration of the "disks"; and, (4) subroutines which 
opsraoe (without modification) on those tables (even though 
the tables may be changed) . 

This approach provides a table-driven BIOS. A BIOS of 
this structure can be easily altered and allows for ease of 
configuration modification. Subroutines that provide 
specific device communications (viz., initialization, read a 
sector or write a sector) must be written for each type of 
device supported in the BIOS (a type is a specific 
double-density disk, hard disk, WEB-00, etc.). Tables are 
coded which describe the physical specifications of each 
logical CP/W-86 disk (viz., number of sectors, directories, 
capacity, etc.). Tables are also coded to provide the 
necessary information to support the mapping of logical 
CP/M-06 disk numbers to the required physical parameters for 
a particular type of device (viz., oase addresses and 
internal disk numbers) . These tables are fully described in 
Section D of this chapter. 

Finally, the inclusion of all configuration-dependent 
information in the tables allows for ease of modification. 
Provided that no new device types are generated (which would 
require device-specific routines) , the configuration (number 
and types of disks) can be changed entirely within the 
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tatles without modifying the BIOS code itself. These tables 
are "included” into the BIOS code during assembly. A 
complete description of the BIOS generation will also be 
given in Section D of this chapter. All code in the BIOS 
which requires device-dependent information to perform its 
task will be designed to operate directly on the tables. 
This provides for a very modular implementation. 

3 . Jump Vector Interfaces 

Entry to the BIOS from the CCF and BDCS is through a 
jump vector. The jump vector is a sequence of 21 three-byte 
jump instructions which transfer program control to the 
individual BIOS entry points (subroutines) . Jump vector 
elements are in a standard order required by C?/M-e6. Each 
BIOS entry point corresponds to a specific function, or 
task, to be performed by the BIOS for the CCP and BDOS. 
Each function has specific interface parameters (passed in 
designated registers) which must be adhered to in any BIOS 
implementation. All of these jump vectors, the BIOS entry 
points and their associated parameters are given on pages 
56-64 of Reference 21. 

Many of the functions in the BIOS need not be 
implemented and are simply coded as a "return" (i.e., the 
LISTOUT jump vector) . Other functions deal with table "look 
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ups" within the BIOS on behalf of the CCP and BDCS. This 
section will be concerned with the jump vectors that require 
"knowledge" of specific physical disk devices. A complete 
description of the CP/M-86 jump vectors is found on pages 
59-61 of Reference 21. 

The "INIT" jump vector's function is to perform all 
initialization necessary for CP/M-86 that was not 
accomplished in the BOCT BOM cr LCADER procedures. The 
"INIT" jump vector must be modified to perform all device 
initialization necessary. In this implementation, device 
initialization consists cf calling a subroutine that 
performs initialization for all of the MBB-80 Butbl-Boards 
that are logically and physically part of the system. 
Additionally, the default DMA address (20-bit, segment and 
offset) must be converted and stored as a 16-bit address for 
all devices that require a 16-bit address (viz., the iSBC 
202 disk controller) . 

The jump vector called "SZLCSK" has the function cf 
selecting a disk for the next read cr write. The BDOS call 
parameter is a logical disk number and the return parameter 
is the disk parameter header (DPH) fcr that device. The DPH 
is a standard table within CP/M-86 (BIOS) which describes 
the physical attributes of each disk and will be described 
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in Section D of this chapter. 



These basic functions were 



net altered. Additionally, however, upon selection of a 
CP/M-86 logical disk number, it is necessary to perform 
certain tasks. Given the logical disk number, a table is 
used to determine the tvee cf device to which this disk 
number corresponds. If the device is a floppy disk, a 
mapping must be made to the physical disk number within the 
flcppy disk controller (0-3 on the iSBC 202 double-density 
disk controller used in this implementation) . If the device 
is an MBB-80, the base address for the memory-mapped I/O 
ccntroller must be obtained. "SELDSK” must be modified to 
perform these functions by subroutine calls and to store 
this information for later use. 

The jump vector called "HOME" has the function cf moving 
a disk read head to its heme pcsiticn (track 0). There is 
no heme position for the MEE-80 Bubbl-Board. Consequently, 
"HCME" must check the device type and if it is an MBB-80, 
the heme request is translated into a request to set the 
track to zero (as required by CF/M-86) . 

The jump vector called "SETTRK" has the function of 
setting the track for the next read or write. The track 
number is passed in as a parameter. CP/M-86 supports track 
numbers in the range 0-65536. This allows the mapping of a 
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wide range cf CP/H-86 track numbers directly tc physical 
track numbers within disk conrrollers (viz. , 

translation) . However, the WEB-00 storage organization 

reguires the mapping of CF/W-86 track numbers to an MBB-80 
device number and to a "sector" offset within that device. 
"SETTHK" must be modified to perform this function (by 
subroutine call) and to store this derived information for 
later use. 

The "R2AD" and "WRITE” jump vectors have the function of 
performing a sector read (cr write) tc (from) the specified 
disk cumber at the specified track and sector. Normally, 
these vectors perform the actual operation directly by 
passing a channel command word to the disk ccntrcller for a 
single device. However, the WBE-80 requires entirely 
different routines tc perform a read or write operation. 
Therefore, "READ" and "WRITE" muse determine what type of 
device is currently being utilized and than call appropria'ce 
subroutines to perform MEE-8C reads and writes. The 
routines that actually perform the non-standard device 
(viz., MBB-80) read and write operations must also perform 
all necessary low-level mappings. In this implementation, 
the MBB-80 read and write subroutines will call cn a sector 
translation subroutine that will map CP/M-86 sector numbers 
tc MEE-80 "seczer" numbers. 
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It should be noted that all device-specific details have 
been excluded from the jump vectors and coded within the 
device-specific subroutines. Jump vectors merely determine 
what type of device is being used (via tables) and then call 
appropriate subroutines. Although this BIOS implementation 
is specifically for the iSBC 202 disk controller and the 
MBE-80 Bubbl-Eoard (as the two t ypes of logical disks ) , it 
can be easily modified to include anv other type of disk 
device or magnetic bubble system as well. Operations that 
are dependent on a specific device type are isolated in 
specific subroutines. As described above, maintainability 
and ease of configuration modification have been designed 
into the structure of this BIOS implementation for CP/M-86. 
C. OSE OF THE CP/H-86 HBB-80 FCBMAT PEOGBAH 

ME80FHT.A86 is a multi-page mode, 8086 assembly language 
pregram which formats the MBB-80 Bubbl-Board to meet IBM 
compatibility standards. This format is the required format 
for ’’new” CP/M-86 disks and consists of the hex pattern ”E5” 
in every data byte of the disk. The program uses the 
multi-page polled mode to write the patrern to the MBB-80. 

This format program is invoked by executing the 
MB80FMT.CMD file on the CP/M-86 system disk. The program 
will print appropriate messages and then request that the 
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user key in a four-digit. 



segment base address for the 



MBE-80 controller. Only four digits should be keyed in, 
followed by a carriage return. Keying in more or less than 
four digits, or invalid hex digits (viz., not in the range 
0-F) , will cause the printing of an error message and the 
user will then be asked to re-enter the segment base 
address. This segment base address consists of the high 
order 16 bits of the 20-bit address that is physically set 
on the aBB-80's address select pins. The address keyed in 
must match the MBB-80 controller’s segment base address and 
the MBB-80 must be plugged into the INTELLEC DD MDS system 
with the power- protect switch enabled. Selection of a base 
address must follow the constraints as specified in Section 
C of Chapter V. If these procedures are not followed, the 
program will not execute reliably (the program has no way of 
knowing where the dBB-30 controller has been physically 
placed in the memory address space or if it is correctly 
powered up) . 

The program will then begin writing the hex pattern to 
every byte on the MBB-80 board. Jlo further operator action 
is required. Each device (0-7) will be written to and, as 
each device is formatted, a message so indicating will be 
printed. Upon program completion, the ''formatting complete" 
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message will be printed and control will return to the 
CP/H-86 operating system. 

Since the polled mode is used to implement the 
multi-page mode of operation, there are no special 
considerations for running this program. The user-specified 
base address for the controller allows the formatting of any 
MBE-80 Bubbl-Board that is currently plugged into the 
INTELLEC DD MDS system. ME80?i1T.CaD provides the only means 
of preparing an MBB-80 Bubbl-Board for use as a "disk" 
within the CP/M-86 operating system. 

D. CF/H-86 BIOS laPIEHENTATION 

1 . Modification of the Existing BIOS 

The host CP/M-86 system, as described in Reference 
18, contains a customized BIOS supporting a single iSEC 202 
disk controller. This host BIOS is used to generate the 
LCflDES BIOS as implemented in both the host system's BOOT 
ROM and LOADER program. The best SOOT ROM requires that a 
physical iSBC 202 disk be present in drive number 0 for boot 
loading (tracks 0 and 1). However, nc restrictions exist as 
to the actual disk configuration that can be initialized and 
run by CPM.STS (in its BIOS), which is read into RAM by the 
Loader program. 
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The basic routines for console input and output 
contained in the BIOS of Reference 18 were considered 
acceptable for use in this implementation. All other jump 
vectors either required modifications as described in the 
preceding section or were not considered to be consistent 
with the structured standards of this implementation. 
Consequently, all of the jump vectors were re-coded. 

The device- dependent routines supporting the iS3C 202, 
found in Reference 18, were also incompatible with the 
structured standards and goals of this implementation. 
There was much redundancy acd inefficiency in the algorithms 
and in the implementation as reflected in the code. In 
addition, the indexing method for mapping error codes to 
error messages for the iSEC 202 was found to be incorrect. 
Therefore, all routines relating to the iSBC 202 were 
re-writren to perform correctly and to coincide with the 
standards and structured approach of this implementation. 
Obviously, the single iSBC 202 controller implementation of 
Reference 18 was limired to a single disk device. The 
implementation presented here is based on a table-driven 
3ICS that directly supports up to sixteen (the CP/M-86 
maximum) disk drives which can be of two different types of 
devices. This necessitated the development of an entirely 
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new BIOS structure which resembles the BIOS cf Reference 18 
and the CP/M-86 distribution BIOS only in its preservation 
of the required jump vector interface standards. 

2. Disk Parameter Table 

The tables which determine the physical disk device 
characteristics of this CP/M-86 BIOS implementation are 
contained in two separate files. One file contains the 
specific device characteristics of each device, while the 
other file determines the currently generated configuration 
of disk devices. 

The family of standard CP/B operating systems is 
designed to accept a table-driven specification for the 
physical characteristics of each logical CP/B disk device. 
These tables are called "disk definition tables" and consist 
of a disk parameter table for each disk generated as well as 
the scratchpad work areas for the operating system. The 
user is able to specify the number cf logical disks to be 
generated (0-16), along with the characteristics of each 
disk (each having a separate entry) . These characteristics 
include; the logical disk number, first and last sector 
number on each track, optional skew factor, blocksize, disk 
capacity, the number of directory entries, checked entries 
and the number of tracks to reserve for the operating 
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system. These parameters are specified in a file. 
Ncrmally# the same type of device has rhe same parameters in 
every occurrence of that device type in the file. The only 
parameter that changes for devices of the same type is the 
logical dish number. 

This file, containing the disk parameters, is used as 
input to a CF/M-06 utility program called GENDEF. This 
utility takes as input a file called filename. DEF and 
produces an 8086 assembly language source cods file called 
filename. LIB. This output file contains the generated 
buffers, tables and scratch work areas needed by CP/M-86 to 
communicate with each disk device. A complete description 
of this disk parameter table generation and specification 
procedure is included on pages 65-73 of Reference 21. 

The file generated by the GENDEF program is used in an 
ASH86 “include" statement (viz. , inserted intc the BIOS 
code) to be assembled within the BIOS. The disk parameter 
definitions (to be input to GENDEF) used for this 
implementation are included in the file DKFRM.DEF. This 
definition allows for three "disks": two iSBC 202 floppy 
disks and one MBB-80 "disk." If more or less disks are 
required, this disk parameter table must be changed and a 
new BIOS generated as described in a following section. 
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The disk definition parameters used in the BIOS of 
Reference 18 for the iSBC 202 controller were used in this 
implementation. The disk definition parameters used in this 
implementation for the MBB-80 were derived from the magnetic 
bubble storage organization scheme. First and last sector 
numbers were defined as 1 and 26, respectively. No skew 
translation was specified in that the BIOS HBB-80 
sector/track translation routines provide for this function. 
A blccksize of 1024 was defined so as to resemble a 
single-density disk. The capacity is 71K bytes as 
determined by the physical storage scheme and accounting for 
reserved operating system tracks. Space was reserved for 32 
directory entries, which allocates the minimum space 
possible for the MBB-80 directory. A checked entry of zero 
(0) is absolutely necessary to indicate that the BEB-80 is a 
non-removable media. Any directory checking will result in 
read-only status settings for the MBE-80 since CRC check-sum 
bytes are net provided for by the MB3-80 controller. 
Finally, two "tracks” are reserved for the operating system. 
This will aid in the implementation of an MEB-80 LOADER on 
track 0 and track 1. 
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3. Disk Conf iaaration Tables 



The DKPSH.D2F file contains information about the 
physical characteristics of each logical device. Since more 
than one possible device type may be generated in this 
i nplementat ion, it is necessary to map the CP/a-86 logical 
device numbers and their associated physical characteristics 
to the actual physical devices they represent. k set of 
tables has been developed to accomplish this task and is 
contained in the file called CONFIG. DBF. This file is also 
an 8086 assembly language source code file which is included 
into the BIOS during assembly. The configuration file is 
entirely a product of this implementation and has no 
relation to Digital Research’s CP/M-86 distribution BIOS 
code. A summary description of the CONFIG. DEF file entries 
is contained in the CONFIG. DEF file itself. A complete 
discussion of the tables will be presented here. 

The first entry in the configuration file is the number 
of logical disks defined. The identifier name in the file 
is ''num_log_disk" and this entry is an equate statemem:. 
The value of this label can be in the range 0-16 decimal but 
must correspond to the "DISKS” statement in the DKPEM. DEF 
file. 
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The next entry is the device table. The identifier name 



in the file is "device_table” and this table is a 0-16 byte, 
one-byte per entry, table. This taole describes the type of 
each disk device in logical order from CP/H-86 disk number 
zero (0) to the highest C?/il-86 disk number generated (which 
is ''num_log_disks" minus 1) . A byte position, or 
displacement, in the table corresponds to the logical 
CP/M-86 disk number (viz., byte offset 2 is the device type 
entry for CP/M-86 disk number 2, if generated) . Each 
logical CP/M-86 disk that is defined must have an entry in 
this table indicating its device type. Therefore, the size 
of this table, in bytes, will equal the number of CP/M-36 
disks defined. The different device types supported in this 
implementation each have a unique, hexadecimal, byte value 
to identify them. These codes are defined in equate 
statements at the beginning of the BIOS. The user will make 
entries into this table using the equate constants 
"disk_type" and ''mbb80_type” , with each successive entry 
separated by a comma. 

Following the device table is the disk logical table for 
the iSBC 202 disk controller. The identifier name in the 
file is ”DK_logical_table“ and this table is a 0-16 byte, 
one-byte per entry, table. This table maps logical CP/M-86 
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disk numbers (0-15 possible) to internal iSBC 202 disk 
controller numbers. A single iSBC 202 controller can 
address up to four disks (internally numbered 0-3) . A 
specific BIOS configuration may assign the four iSBC 202 
disks to any four CP/M-86 disk numbers in the range 0-15. 
These CP/M-36 disk numbers must be mapped to iSBC 202 disk 
controller numbers (0-3) to be used in the disk channel 
command words. Therefore, this table maps logical CP/M-86 
disk numbers to iSBC 202 disks (up to to a maximum of four, 
since this implementation is designed for a single iSBC 202 
controller). The size of this table, in bytes, can be up to 
16 bytes, with the offset in the table corresponding to an 
entry for that CP/M-86 logical disk number. It is important 
to note that an entry must exist for ail positions in the 
table up to and including the offset for the last CP/M-86 
disk generated as an iSEC 202 disk device. The value 
"EK_null", which is merely a “place holder", is used for all 
entries which do not correspond to iSEC 202 disk devices. 

?cr example, if two iSBC 202 disks were generated as 
logical CP/M-86 disk numbers 0 and 4, then the table would 
be five bynes long. Byte offsets 0 and 4 would contain OOH 
and 01H (as internal disk numbers) respectively, while byre 
offsets 1-3 would contain the *'DK_null“ place holding entry. 
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Byte offsets greater than 4, the last iSBC 202 disk 

generated in this example CP/M-86, need not be defined 

(ceded) . 

The last entry in the file is the MBB-80 logical table 
f cr the MBB-80 controller (s) . The identifier name in the 
file is "M3_logical_table'* and this table is a 0-16 word, 
one-word per entry, table. This table maps logical CP/a-86 
disk numbers (0-15 possible) to MBB-80 controller segment 
base addresses. Any number of MBB-80 ’’disks" may be 
generated anywhere (non-sequentially and non-contiguously) 
in the logical CP/M-86 disk range of 0-15. The size of this 
table, in words, must be exactly equal to the number of 
disks defined (’’num_log_disks’’) . The word offset in the 
table corresponds to an entry (controller segment base 
address) for that CP/M-86 MBB-80 "disk." It is important to 
note that an entry must exisz for all positions in the 

table. The value "MB_null", which is merely a "place 

holder", is used for all entries which do not correspond to 
an MBB-80 "disk" device. This table is also used to 
initialize the MBB-80 controller (s) based on the total 
number of CP/M-86 disks defined. The table is "walked 
through", with null entries being ignored and with non-null 
contrcller segment base addresses being initialized. 



98 



4 



m 



I 






m 




Therefore, unlike the disk logical table, there must be one 
entry for e very logical CP/M-86 disk defined. 

For example, if five CE/M-86 disks were generated, with 
numbers 0, 1 and 3 being iSBC 202 disks and numbers 2 and 4 

being MB3-80 "disks", this table would be five words in 
length. Word offsets 2 and 4 would contain valid MBB-80 
ccntrcller segment base addresses (in hex) , while word 
offsets 0, 1 and 3 would contain the "MB_null" place holding 
entry. It is also important to note that when boor loading 
a CP/M-86 operating system with MBB-80 boards generated as 
disks, it is imperative that all MBE-80 boards be plugged 
into the INTELLEC MDS chassis and powered up. Failure to do 
so will cause the BIOS initialization routine to "hang" when 
processing the valid controller segment base addresses for 
MEE-80*s in this table. 

4 . BIOS Generation Procedure 

The procedure for the generation of a 
user-config ured BIOS and a new CP/M-86 operating system is 
described on pages 80-82 cf Reference 21. A synopsis of 
that procedure, along with the necessary modifications for 
this implementation, will be presented here. 

The two files, DKPRM.DEF and CONFIG, DEF, are updated, as 
specified above, to reflect the user’s desired devices and 
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configurations. The CP/a-86 GZNDEF utility program is run 
utilizing DKFRM.DEF as input and producing DKPRh.LIB as 
output . 

Assuming all necessary device-dependent modifications 
are made to the BIOS, assembly of the BIOS can take place. 
No modifications are necessary tc this implementation BIOS 
if only iSBC 202 disks and MBE-80 “disks”, in some 
combination, are to be used. This implementation's BIOS is 
included in the file called f1BBI0S.A86 and is listed in 
Appendix E. In the code file M3BIOS.A86, there are the 
appropriate ASM86 “include statements” for the files 
DKPRM.LIB and CONFIG. DEF which will cause them to be 
inserted into MBBI0S.A86 during assembly. It was found that 
the 8086 cross assembler, a CP/M-80 program, has a small 
symbol table capacity. Therefore, assembly of MBBIOS.A86 
must take place under CP/M-86. 

Upon successful assembly, the file aBBIOS.H86 is 
produced. This file is concatenated tc the CP/!1-86 
distribution CCP and 3DOS, contained in the file CPM.H86, 
using the CP/M-86 utility program called PIP.CMD. The name 
of the resulting combined file should be a dummy, temporary 
name such as NEWCPM.H86. The resulting CCP, 3DOS and 
customized BIOS hex file is then converted to the CMD file 
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fcrnat by executing the CP/M-86 utility program called 
GEKCMD.CMD. The GENCMD oprions of an 8080 memory model and 
an absolute code locaxion of "A40” must be specified. The 
format of the command with the options follows: 

GENCMD NEMCPM 8080 CCde[A40] 

Finally, the NEWCFM.CMD file is transferred to a new system 
disk that contains a LCADEB program (see Chapter VII) and 
renamed to CPU. SYS. Now the tailoring process is complete 
and a boot load to the new system disk will invoke the 
CP/M-86 that has been generated. 

5 . Reconfiguring the EIOS 

This implementation has been designed to directly 
support a single iSBC 202 disk controller and multiple 
MEE-80 boards in the BIOS. This allows for up to four (4) 
floppy disks and up to *'n” (where "n” equals sixteen minus 
the number of iSBC 202 disks generated) NBB-80 disks. 

The number and types of iSBC 202 and MBB-80 disks can be 
altered via the device and configuration tables. No changes 
are necessary to this implementation's EIOS code 
(aEEI0S.A36) . Following the procedures of Section D.4 of 
this chapter will generate a new configuration in accordance 
with the information contained in the tables. Therefore, 
this BIOS can be easily expanded to support additional 
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MBE-80 '•disks*' and two mors iSBC 202 drives (since the iSBC 
202 controller is currently controlling only two physical 
drives) . 

This implementation has been generated with three (3) 
logical CP/M-86 disks. CF/M-86 disk numbers 0 (drive A:) 
and 2 (drive C: ) map to the iSBC 202 controller's internal 
disk numbers 0 and 1, CP/M-86 disk number 1 (drive B:) maps 
to an MBB-80 Bubbl-Board controller at a segment base 
address of 08000H, A segment base address of C8000H was 
chosen for two reasons; (1) CF/M-86 I/O reserved addresses 
in the first 64K segment could not be used because of the 
inability to inhibit the onboard RAM for memory- mapped I/O, 
and (2) 080000H is significantly out of the address range 
for most applications. This address can be changed by 
modifying the entry in the CONFIG. DEF file for the MBB-80 
ccntrcller segment base address. 

E. EVALUATION OF THE IMPLEMENTATION 

1 . Performance 

The primary criteria fcr the performance evaluation 
of this implementation was the speed of execution of the 
input/output functions of the types of disk devices. Three 
different programs were run on both an MBB-80 "disk" and on 
an iSBC 202 disk to determine execution times. A 
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corventional stopwatch was usad for the timing and the 
results of those tests are summarized below. 

The first test consisted of executing the CP/H-86 
utility program, called flP.cao, which transfers CP/M-86 
files between disks. The PIP program and target files of 
2K, 6K and 28K bytes were loaded to both an MB£“80 "disk" 
and an iSBC 202 disk. Transfer operations were performed on 
each file on each device utilizing same-device resident 
copies of PIP, the target file and the destination fils. 
The results of the test utilizing the PIP program were as 
follows: 

File Size (Bytes ) aBB-80 (Seconds ) iSBC 202 (Seconds ) 

2K 3,5 11.2 

6K 6.1 11.3 

28K 18.2 21.2 

The second test consisted of executing the CP/M-86 
utility program, called ED.CMD, which is an object-oriented 
editor for files. The 2D program and target files of 2K, 6K 
and 24K bytes were loaded to both an MBB-80 "disk" and an 
iSEC 202 disk. Edit operations were performed on each file 
on each device using same-device resident copies of 2D, the 
target file and the destination file. The events rimed and 
tested for an edit operation were the reading of the ED 
program into memory and the writing of the target file back 
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to its source disk from SAM memory. The results of the 
editing test were as follows; 



File Size (Bvtes) 


MBB-80 


f Seconds) 


iSBC 202 (Seconds) 




Read 


Write 


Read 


Write 


2K 


2.6 


1.5 


8.4 


5.3 


6K 


3.3 


3. 1 


8.5 


6.4 


24K 


3.4 


10.4 


8.7 


13.9 


The last test consisted 


of executing the CP/M 


-86 utility 


program, called ASH86.CME, 


which assembles 8086 assembly 


language files into 


8086 hex 


files . 


The ASM86 


program and 


target files of 4K, 


8K and 


14K bytes 


were loaded 


to both an 


MBE-80 "disk" and 


an iSBC 


202 disk. 


Assembly 


operations 



were performed on each file cn each device utilizing 
same-device resident copies of ASM86, the target file and 
all of the ASM86 output files. The results of the assembly 
test were as follows: 

File size (Bvtes t MBB-9Q (Seconds ) iSBC 202 (Seconds ) 

4K 2C.9 28.4 

8K 45.0 53.7 

14K 64.3 31.9 

From these test results it can be computed that an 
MEE-80 ’’disk" will prcvide an average increase of 
approximately 42 percent in inpu t/output over an iSBC 202 
disk. Of course, the more I/O intensive a program is, the 
greater the performance advantage that can be realized when 
using an MBB-80 vice an iSEC 202 disk. 
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2 . Limitations 



Three primary limitations were discovered in this 
i iplementation: transportability, density and transfer 
rate. A certain measure cf transportability is provided in 
that any single flBB-80 Bubbl-Board is a logically complete 
CP/a-86 disk. The board can be removed from the INTELLEC DD 
HDS system chassis and moved tc another system that supports 



MBE-80 devices 


under 


CP/a-86. 


However , 


this 


dees require 


the "powering 


down" 


cf the 


chassis prio 


r to 


removing the 


board. It i 


s also recognized that 


the 


media of a 


solid-state ci 


rcuit 


board 


is different 


from 


that of a 



flexible, thin, magnetic disk. It is not clear which media 
is more conducive to transportability in any given 
application and environment. 

The second limitation involves the relatively small 
capacity of the MBB-80 "disk” (78K bytes) in comparison to a 
single-density or double- density floppy disk (250K or 500K 
bytes) . Even if the full capacity of the aBB-80 (92K bytes) 
could be used, the capacity difference rs significant. The 
liirited capacity of the MBE-80 restricts the number and size 
of the applications which can be executed entirely with the 
MBE-80 storage device. This limitation made large 
assemblies on MBB-80*s and MBE-80 CP/M-86 resident disks 
impractical for a useful iiplementaticn. 
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The third limitation, transfer rate. 



becomes evident in 



viewing the test results presented in the performance 
section. As the size of the file is increased, the a3B-80‘s 
advantage over the iSBC 202 on I/O operations becomes less 
noticeable. This is primarily due to the fact that the 
MBE-80 *s transfer rate is only 45 Kbits/second, compared to 
a transfer rate of 250 Kbits/second for the iSBC 202. When 
I/C is performed where the number of seeks is relatively 
small in comparison to the number of actual bits 
transferred, the MBB-80*s advantage is diminished. The 
validity of this trend could not be verified by the testing 
of large files because of the capacity limitation cited 
above. 

It should be noted that, upon the availability of 
multiple aBB-80 boards, a system can be easily generated to 
support many MBB-80 ’’disks." Then, large applications could 
be run exclusively on MBE-80 "disks" by utilizing target 
disk specification parameters that are available in most 
CP/M-86 utility programs. Additionally, the future 
generation of a BIOS utilizing the currently available, 
high-capacity (1M byte) magnetic bubble devices is not to be 
precluded. This implementation of a BIOS provides an 
excellent and easily adapted framework for the addition of 



new types of disk devices. 
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3 . Applications 



This implems ntation of an ilEE-30 Subbl-Board within 
the CP/M-86 operating system has produced a workable host 
microcomputer environment which can be used for research and 
evaluation of magnetic bubble memory technology. It has 
also produced, with the subseguent addition of more MBB-80 
boards, a developmental system which offers significant 
performance (speed of I/O) improvements over standard floppy 
disks in certain applications. 

There is much theoretical research on the applicability 
of magnetic devices. The literature contains many untested 
and unimplemented designs, algorithms and programs for 
applications ranging from "fast sorts" to database 
management schemes. This implementation provides a host 
system capable of supporting research and experimentation in 
these areas on a f ully-cperaticnal microcomputer system that 
supports magnetic bubble devices. 

This implementation has produced a system capable of 
supporting up to sixteen MBE-00 "disks." Despite the 
individual capacity limit of 78K bytes per MBB-80, it is 
obvious that a significant reduction in program development 
time could be achieved utilizing exclusively MBB-80 logical 
"disks." This system is built upon tne highly-regarded 
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Intsl 8086, 16-bit microprocessor running under the CP/M-86 
operating system. These characteristics, combined with the 
demonstrated performance cf the MBB-80, contribute to 
provide a robust host system for research and application 
program development utilizing magnetic bubble devices. 
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VII. BOOTLOADING CP/M-86 PRCB THB aSB-80 



A. BOOT ROH AND LOADER CONSIDERATIONS 

When installed in the iSBC 86/12A, the BOOT BOM is part 
of the memory address space, beginning at byte location 
OFEOOOH, and receives ccnrrol when the system reset button 
is depressed. The BOOT BON on rhe standard iSBC 36/12A 
cortains the 957 monitor program as supplied by Intel. The 
prcgram implemented on the EEROM chips was modified by 
adding code tc the end of the 957 monitor prcgram in memory 
addresses that were not utilized in the implementation of 
Reference 18. This customized addition of code to the 957 
mcnitcr program begins at memory address 0FFD40H and has the 
responsibility of reading the LOADER program from the first 
twc system tracks of the CP/M-86 default disk drive into 
memory and then passing control to the LOADER program for 
execution. 

The BOOT ROM is actually an EPROM which can be modified 
for specific implementations. The host development system, 
as described in Reference 13, reads the LOADER program from 
tracks 0 and 1 on physical drive number 0 of the iSBC 202 
controller. The additional SOCT SOM code contains the 
necessary routines for initializing the iSBC 202 controller 
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and fcr reading the LOADEH program from disk into memory. 



This procedure is initiated by issuing a •'GFFD4:0" command 
to the 957 monitor, which passes control to the beginning of 
the bootstrap code in the SCOT BOH. 

It was considered desirable to be able to boot load the 
CP/M-86 operating system from either an iSEC 202 disk or 
frcir an aBB-80 logical "disk.” This requires two entry 
points into the additional code in the BOOT ROM. These 
entry points will set a flag indicating whether an iSBC 202 
disk or the MBB-80 is to be used as the boot loading device. 
Additionally, routines for initializing the aBB-80 and for 
reading track 0 and track 1 on the aBB-80 had to be included 
in the BOOT ROM. 

The available space in the BOOT ROB address space is 
severely limited. Therefore, the code for common functions 
in the BOOT ROM must be used by both an iSBC 202 boot 
request and an MBB-80 boot request when boot loading. Then, 
based on the value of the entry point flag, the requested 
device type (viz., iSBC 202 or MB2-80) initialization and 
read routines will be utilized to read into RAM the LOADER 
program from tracks 0 and 1 of the boot device. A common 
section of code will be used to pass control to the LOADER 
program for execution. A primary consideration must be 
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restricting the size cf this additional code to the unused 
space after the 957 monitor program in the iSEC 86/12A's 
ontcard SPROM, 

The LOADER program is a simple subset cf the CP/M-86 
operating system that contains sufficient file processing 
capability to read CPM.SYS into memory from a system disk. 
When the LOADER program completes its operation, the CPa.SYS 
pregram receives control and proceeds to process operator 
input commands. The LOADER pregram consists of a loader CPM 
and a loader BDOS (distributed by Digital Research) along 
with a user-configured loader BIOS. The file resulting from 
the ccncatenatien of these three modules is converted to an 
executable CMD file and placed on tracks 0 and 1 of the 
system disk. [Ref. 21: ?p. 77-79] 

A user-configured leader BIOS can be generared from the 
BIOS code developed in this implementation. The complete 
flexibility of device configuration that is possible in a 
standard BIOS is also possible in a loader BIOS. This 
implies an important consideration: the LOADER program does 
not have to read CPM.SYS from the same device rhat the 
LOADER program itself was read from. The LOADER program 
will read CPM. SYS from the default disk number and its 



corresponding device 



type based 



upon the device 



configurations and mappings specified in the leader BIOS. 
Issuing a aonitor "GO" conmand for the entry point of the 
iSEC 202 in the BOOT BOM will always result in the contents 
of tracks 0 and 1 (the LOADER program) on physical iSBC 202 
drive number 0 being read into RAM. Likewise, issuing a 
monitor "GO” command for the entry point of the MBB-80 in 
the BOOT ROM will always result in the contents of "tracks'* 
0 and 1 of the MBB-80 at a controller segment base address 
of 08000H being read into RAM. The actual device 
configuration contained in the loader BIOS is not restricted 
by the type of device used by the BOOT ROM when reading the 
LCACEB program. 

B. BOOT BOM AHD LOADER IMPLEMEMTATIOH 

The additional code for the BOOT ROM was written and 
tested. It provided for a conditional boot load from an 
iSEC 202 or from an MBB-80 at a controller segment base 
address of 08000H. The entry points are 0FFD40H for the 
iSEC 202 and 0FFD44H for the MBB-80. Upon depressing the 
reset button, the 957 monitcr program begins execution. To 
boct load from the iSBC 202 the mcnitcr command "GFFD4:0" is 
given, which is the same command as that used in the 
iirplementaxicn of Reference 18. To boot load from the 
MBE-eO, the monitor command "GFFD4;0004" is given. 
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'if- 




The additional code for the BOOT ROM contains the entry 
points for the twc device types, the iSBC 86/12A 
initialization procedures and the code necessary to 

initialize the selected toot device and read the LOADER 
prcqram from the system tracks of that device. The 

additional code for the BOOT ROM is contained in the file 
called MB80ROM.A86. This file is assembled and the 
resulting object code is added to the 957 monitor program on 
the iSBC 86/12A's onboard EPROM. This procedure is 
described in Section C of this chapter. 

The LOADER program itself consists of three parts: the 

Load CPM program (1DCFM.H86), the Loader Basic Disk 

Operating System (LDED0S.H86) and the Loader Basic I/O 

System fLDBIOS. H86) . The files LDCPM.H86 and LDBDCS.H86 are 

included as part of the standard Digital Research 

distribution system for CP/M-86. The loader BIOS is 

generated from the file MEEIOS.A86, which is also used to 

generate the standard CP/M-86 BIOS for this implementation. 

MEEI0S.A86 contains a conditional assembly switch, called 

'*lcader_bios" , which, when enabled, produces a loader BIOS. 

> 

The effect of this switch is to modify certain addresses to 
correspond to entry points into LDCPM and LDBDCS and to 
eliminate BIOS code that is not needed in the loader version 
of a BIOS. 
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The loader BIOS is configured in exactly the same manner 
as the BIOS itself and is fully described in Section D.4 of 
Chapter VI. The two files CONFIG. DBF and DKPHM.DEF must be 
modified ro meet the user's requirements and to reflect the 
device that will contain CPH.SYS. It is the default drive, 
or CP/M-86 drive number 0, that is specified in the device 
table that determines which device will be searched for a 
CPH.SYS file. 

The loader BIOS generation procedure is different from 
the BIOS generation procedure. Upon modification of the DBF 
files and successful assembly of HBBI0S.A86, a file called 
HEEI0S.H86 is produced. This file is concatenated to 
LDCPM.H86 and LDBDOS.H86 using the CP/a-86 utility program 
called PIP.CMD. The resulting combined file should be named 
LDSIOS.H86. The resulting leader CCP, 3D0S and BIOS hex 
file is then converted to the CHD file format fay executing 
the CP/M-86 utility program called GENCMD.CMD. The GBNCMD 
options of an 8080 memory model and an absolute code 
location of "A400" must be specified. The format of this 
command is as follows: 

GENCMD LDBIOS 8080 CODE[A400] 

Finally, the new loader BIOS must be copied to tracks 0 and 
1 cf the new system disk. This is done by executing the 
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CP/M-86 Utility program called LDCOPy.CMD. Assuming the 
leader BIOS executable file was called LDBIOS.CMD, the 
fcllcwing comand would be used to initiate this process; 

LDCOPy LDBIOS 

The LDCOPY program will ask for a destination drive to 
receive the LDBIOS program on its track 0 and track 1. The 
target drive should have a scratch floppy disk (if an iSBC 
202) or an MBB-80 board. A complete description of the 
LDCOPY procedure is given on pages 77-79 of Reference 21. 

C. EPROa GENEHITION 

With the boot load program# ME80BOM# written# the only 
remaining task was the generation# cr programming# of the 
reguired EPECM chips. The iSBC 86/12A has 8K bytes of 
onboard addressable EPSOM# provided in four Intel 2716 EPSOM 
chips of 2K bytes each. Because of the odd-even addressing 
of the iSBC 86/12A# two of the 2716s are devoted to the 4K 
even address bytes and the other twe are devoted to the 4K 
odd address bytes. These even and odd address EPROMs are 
located at starting addresses OFEOOOH and OFEOOIH# 
respectively. 

As previously mentioned# the 957 monitor program of the 
INTELLEC DD MDS system occupies a large portion of this 
onboard EPROM address space. The monitor occupies the 
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address space between OFEOOOH and 0FFD22H and also has jump 
vectors located between OFFFEOH and OFFFFFH. The address 
space available for boot loader programs is approximately 
72C (decimal) bytes between the end of the monitor and the 
jump vectors. Since this available space is located 
entirely in the upper 4K bytes of the onboard EEROM, only 
the two 2716 EPROM chips containing the upper 4K bytes of 
address space need to be modified when incorporating a boot 
leader. 

Dtilizinq the CP/H-86 utility program called DDT.CMD, 
the contents of the upper 4K bytes of the iSBC 86/12A's 
onboard EPROM was read into memory and then saved as an 
executable CMD file. The INTELLEC DD MDS system was then 
reconfigured to the standard Intel 8080 sytem to facilitate 
the use of the ISIS operating system and the Universal Prom 
Programmer. The CP/H-80 utility program called DCT.COM was 
then utilized to replace the the existing boot loader 
portion of the saved copy cf the EPROM contents with a copy 
of HB80ROH.CMD. This resulted in a single, complete, 
contiguous copy of the desired EPROM contents. 

Intel 8080 assembly language programs were then written 
to split a file into contiguous blocks of odd address and 
even address bytes. Using the CP/M-80 DDT program, the file 



containing the new EEHOa contents was loaded into memory and 
then each of the splitting pregrams loaded and executed. 
This resulted in the desired EPROM contents being divided 
into two contiguous blocks of 2K bytes each, one block 
containing the even address bytes of the split file and the 
other containing the odd address bytes of the file, and 
stored in RAM. The ISIS operating system was then booted 
with the two split blocks of the new EPROM contents still 
stored in RAM. The ISIS Universal PROM Mapper (UPM) system 
was then used to program two Intel 2716 SPROM chips, one 
with the 2K byte contiguous block of odd address bytes and 
the second with the 2K bytes of even address bytes 
previously stored in RAM. The contents of the two newly 
programmed 2716 chips was then verified using the facilities 
of the UPM system. 

The new EPROM chips, new containing MB80ECM.CMD in place 
of the boot loader provided by Reference 18, were then 
placed on the iSBC 86/12A and operationally tested. Boot 
loading from both an iSBC 202 disk and an MBB-80 "disk" was 
successfully accomplished. To ensure compatibility with the 
previous implementation of Reference 18, the CP/M-86 
operating system of that implementation was successfully 
beet loaded with the new EPROM chips. 



VIII. CONCiqSIOMS 



A. IHPLEHENTATION SYNOPSIS 

All of the stated goals of this thesis were successfully 
accomplished in this iiplementation . A magnetic bubble 
device (MBB-80) was implemented utilizing a conventional 
microcomputer operating sys”eo (CP/M-86) and a commercial 
16-tit microprocessor (Intel 3086) . A fully operational 
system capable of testing, evaluating and utilizing a 
magnetic bubble device in a standard user environment was 
presented. 

This implementation was accomplished in a manner such 
that future modifications and additions of hardware will be 
relatively easy. The hardware-dependent Basic I/O System 
(BIOS) of the CP/M-86 operating system was developed and 
coded as a structured, modularized, table-driven module. 
Device-dependent routines were isolated and confined to 
specific subroutines and tables. Device-independent code 
was structured to operate, without modification, utilizing 
the tables and subroutines which describe the specific 
hardware of the system. Documentation and structured 
programming techniques were emphasized to provide ease of 
program maintenance and modification. 

1 18 



This implementation provided a system in which the 
MEE-80 magnetic bubble device has the functional appearance 
of a disk to the CP/M-86 operating system. Conseguently, at 
the user-interface level, nc special considerations are 
necessary to utilize the magnetic bubble devices. 
Additionally, a system was generated consisting entirely of 
magnetic bubble devices. The system BOOT fiOfl and LOADEfi 
program were modified to show the feasibility of booting the 
CP/a-86 operating system from a magnetic bubble device. 
This produced a fully operational system supported only by 
magnetic bubble secondary storage (viz., no floppy disks). 

This implementation and the proven feasibility of a 
system using magnetic bubble devices suggest many possible 
applications for this type of system. An operational system 
is now available for further testing and evaluation of 
magnetic bubble devices. The MBB-80, as a logical disk 
device generated into a CP/M-86 environment, becomes a 
compatible medium fcr different host systems (viz., hard 
disk, double-density, single-density) . M3B-80 boards can be 
moved to any CP/M-86 MULTIBUS system, which has been 
generated with MBB-80 devices, and used to transfer files to 
the host system media. 
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B. RECOMMENDATIONS FOR FOTOBE iORK 

There are four major areas that present opportunities 
for future work. These areas are: (1) storage mapping 
schemes; (2) MBB-80 performance measurements; (3) generating 
and testing of new magnetic bubble devices; and, (4) 
i iplsmentation of new and existing applications utilizing 
MBE-80 devices. 

The storage mapping scheme for the MBB-80, as 
implemented in this thesis, is both simple and efficient 
(viz., speed of code execution) but wastes 15.2 percent of 
the tctal capacity of the MEB-80 Bubbl-Board. Many storage 
schemes are possible if the MBE-80 is to be configured as a 
non-standard disk (viz., ncn-standard in relation to CP/M-86 
track, sector and blocking schemes) . It is not clear what 
physical configuration of the MBB-80, as logically presented 
to the CP/M-86 operating system, will provide the best 
tradeoff between speed and usable capacity for the MBB-80. 

The performance evaluation cf the MBB-80, as generated 
into CP/M-86 in this implementation, was limited to simple, 
timed tests of CP/M-86 utility operations. No attempts were 
made to perform an analytical evaluation of the low-level 
MBE-80 bubble operations in comparison to the corresponding 
low-level iSBC 202 disk operations. The MBB-80 low-level 
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diagncsric programs of chapter V would provide an excellent 
vehicle for collecting data on the performance of low-level 
MBE-80 operations. Additionally, no evaluation was made of 
the operational and/or environmental ruggedness of the 
HEE-80, Much work is possible in determining the 
suitability of magnetic bubble devices for use in harsh 
environments. The fully operational magnetic bubble system 
will allow for testing and data collection under actual 
operating conditions. 

The modularized, table-driven BIOS developed in this 
implementation is easily adapted to new hardware. Magnetic 
bubble devices based on new, high-density technology with 
parallel block/replicate architecture can be generated into 
the BIOS by simply adding appropriate device-dependent 
read/write routines and appropriate table entries. The 
framework provided by rhis implementation of a BIOS will 
lend itself to the addition of device types with a minimum 
amount of re-coding. The implementation of currently 
available 256K byte and IM byte magnetic bubble devices into 
the CP/M-86 BIOS would provide a significant improvement in 
the usefulness of this implementation as a host development 
system. 
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Finally, this implementation of a BIOS can support 
multiple (up to 16) MBB-80 boards. With multiple boards 
(disks) , this implementation system would be suitable for 
existing applications that utilize floppy disks. A total 
magnetic bubble system (without floppy disks) has been 
implemented with a single M3B-80 board. This allows the 
implementation of many applications on a total MBE-80 system 
where the availability or desirability of floppy disks is in 
doubt. 

C. POTENTIAL APPLICATIONS 

Chapter II and Chapter III presented evidence showing 
the current and future potential of magnetic bubble devices. 
The capacities, access rates and transfer rates of magnetic 
bubble devices are becoming ccmpetitive with, and often 
surpass, most conventional secondary storage media. 
Additionally, the characteristics of non- volatility, low 
power consumption, environmental ruggedness, high 
reliability and low maintenance exhibited by magnetic bubble 
devices give this technology a decided advantage over 
conventional secondary storage media in certain 
applications. Specifically, the application of magnetic 
bubble technology to the military environment appears very 
desirable. 
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Magnetic bubble devices require only DC power sources in 
the range of 1.0 amperes to 3.0 amperes at 5 volt and 12 
volt levels. Power consumption is approximately 32 watts 
per megabyte cf data capacity. Floppy disk devices require 
bcth AC and DC power sources. AC line frequency must be 
within one-half (1/2) hertz of the required frequency 
because of its effect on disk rotational speed and, thus, 
the read/write tolerances. DC power sources are in the 
range of 5.0 amperes to 8.0 amperes at 5 volt and 12 volt 
levels. Power consumption is approximately 350-400 watts 
per megabyte of data capacity. Magnetic bubble devices can 
operate in temperature ranges of 0 to 70 degrees Celsius and 
maintain data storage integrity in the range of -65 to 150 
degrees Celsius. Magnetic devices can operate reliably in 
up to 100% relative humidity. Floppy disk devices can 
operate in temperature ranges of 10 to 40 degrees Celsius 
and ax. relative humidity levels between 205 and 805. 
Operation of floppy disk devices outside these ranges can 
result in distortion of the diskette, followed by oxide 
deterioration, hygroscopic expansions, off-track recording 
and finally, irreversable magnetic effects. Magnetic bubble 
devices can withstand shock up to a 200G force and vibration 
up to a 20G force. So comparable figures for floppy and/or 
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hard disks are availabls since excessive shock an 
are not considered as part of their 
"environments." Mean time between failure fo 
devices is typically 5-10 years as compared to 
hours (approximately 1 year) for floppy disk de 
should be noted that disk devices, in general 
periodic maintenance and magnetic bubble devices 

Because of the stated advantages of magne 
memcry over other existing secondary storage te 
it can be used in applications requiring mass 
real time data that can be transferred to the sy 
memory for processing. Most military application 
the requirement for loading of programs and relat 
amounts of data to main memory. In these cases, 
capacity and transfer rate advantage of hard disk 
to magnetic bubble devices) would not b 

Consequently, magnetic bubble devices are a prim 
for use in real time combat systems that must " 
such as the O.S. Navy*s AEGIS weapons system. 

Several specific military applications are 
using magnetic bubble devices. The Canadian 
bubble memory for data recording at sea. The U.S 
uses magnetic bubble cassettes to distribute an 
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aircraft maintenance diagnostic programs. Most military 
applications requiring a ruggedized storage medium are 
currently utilizing tape cassettes and flexible dis)c drives. 
Buttle memory, in portable cassette form, offers significant 
advantages over tape and disk media. A 2M bit bubble memory 
package, capable of operating in a temperature range of -54 
to +155 degrees Celsius, is being developed for the 
Department of Defense by Western Electric and Bell 
Laboratories. It is targeted for use in a wide range of 
military applicarions . [Ref. 23: pp. 89-90] 

It is apparent that there exists a significant need for 
magnetic bubble devices in military applications . 
Currently, the industry is addressing the problems of making 
magnetic bubble devices economically feasible, portable and 
more reliable. Even if the cost per bit remains higher than 
conventional media, the advantages of magnetic bubble 
devices in both military and commercial environments will 
present a convincing argument for the need and use of this 
technology. 



125 



APPENDIX A 



PROGBAH LISTING OF DIAG80.ASN 



FILENAMES: Pascal = ME . DIAG80 .TEXT 
CP/H = DIAG80.COM 

* * V ><c :i( 3)1 # 3k dc ]|c 4c 4t * :|c 4 e * 3tc 4 4c # ^ # 4c 4< # 4c ^ * 

8080 DIAGNOSTIC TEST FOR PC/M MBB-80 BOBBLE MEMORIES * 

3k4k>4c4c4c4c4c4(4c4c4c4c*4c4t3k3k4c3k4c4c4e4c4cc*4(4c4i4c4c*3fe4>4c4c4c4c4c4c4c4c4c4c4<4c4:4c4c4>4c4i4c3k4c4c4c4c 

CCNFIGORATION ; 

HOST - Intel 8080, 16 address lines, MDS system, 
data bus on 8080 is eight bits. 

MBB - interrupts enabled, interrupts inhibited in 
software, single-page mode, 20 address lines 
decoding. 

Simple bubble test for the 8080 - writes or reads one 
user specified page at a time - user also specifies test 
pattern if writing. Status register of MBB is displayed 
to the console whenever used for debugging. 

The MBB-80 controller base is defined by • PScontbase * . 
MEB-80 address select pins must correspond to this 
address. This program uses memory mapped I/O through the 
base address. 

3k 4 4< 4c 4c 3k 4> 4c :*c 4c * 4c 4c 4c 3k * 4c 4c 4c 4e 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4( 4c 4> 4> 4t 4c 4c 4c4c 4c 4c 4< 4c XC 4c 4c 4> 4c 4c 4c 4c 4c 4c 4c 4c 

Jeffrey Neufeld and Michael Hicklin, CS-03, Thesis * 



* Edos function numbers fcr calls * 



BdcsSconin 

BdcsSconout 

* 

BdcsSentry 

3dcs$pstr 

Bdc£$reset 



egu 01H 
equ 02H 

equ 0005H 
equ 09 H 
equ OOH 



;func # for Bdos read character 
;func # for Bdos write character 

;entry for call to Edos 
;func # fcr Bdos print string 
;func # for CP/M-oO reset to CCP 



;* Miscellaneous equates 
blank equ 020H 

cr equ OdH 

eol equ 

If equ OaH 

« 



;Ascii blank 
;carriage return 
;end cf string char 
;line feed 



for pstrSfnc 



;* MBB-80 characteristics (equates) 

MBSmaxpages equ 641 ;# of pages on each bubble device 

MEJpagesize equ 18 ;bubble device page size 



;=* MBE-80 command 
MB$cusy$check equ 
ME2initScmd equ 
MBJreadScmd equ 
MB$reset$cmd equ 
ME$write$cmd equ 



byte masks 
00 100000E 
00000001E 
10C00010E 
01 OOOOOOE 
10C00100E 



is cont busy? check (20H) 
intialize the controller (01H) 
single-page read cmd (82H) 
reset the controller (40H) 
single-page write cmd (84H) 



;* MEE-80 
PScontbase 
PSpsello 
PSpselhi 



Controller and Ports 
egu 04000H 
equ PScontbase 
equ PScontbase+1 



; base of controller 
; page select Isb 
;page select msb 
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PScmdreg 

P^rdreg 

PSwrreg 

pSstatreg 

PSlccpszio 

pJlcopszhi 

P$pgsiZ9 

P$£€lbub 



9qu P$contbase+2 
egu P$contbas€+3 
egu P$contbas€+4 
egu PScor.t bas s+5 
egu P$contbase+8 
egu P$contbas€+9 
egu P$ccntbase+ 1 2 
egu P$contbase+ 15 



;coainiand register 
; read data register 
; write data . register 
; status register 
;loop size Ish 
;loop size msb 
;page size register 
;dud dev select register 






MAIN PROGEAM - CHIVES 

*:»*!)(**♦:({** :*:<t**#**:lt ♦♦3k#* :|i*# *#:(t****:(i3|t*#* 



DIAG80: 



Loop: 



Write: 



Head: 



Cuit : 



org 

1X1 

di 

Ixi 

call 

call 

call 

call 

cpi 

u 

push 

call 

call 

pop 

cpi 

jz 

call 

call 

call 

mp 

XI 

call 

mvi 

call 



1 



0100H 

SP,0b000H 

D, nisgSsignon 
Pr intSString 
InitSCont 
InitSDevs 
AsJcSOser 

•q: 

Quit 

PSW 

Gets Bubble 

GetSPaae 

PSW 

• H* 

Read 

GetSPattern 

WriteSPage 

Loop 

HeadSPage 
Pr intSOut 
Loop 

D, msgSguit 
Prin-6$String 
C, BdosSreset 
BaosSentry 



stack pointer to app 44K 
disable interrupts 
addr of signon msg 
print it 

init the MBB controller 

init the bubble devices 

user want read or write? 

dees user want to quit? 

if sc, go quit 

save user's answer 

get user bubble # for test 

get user page # for test 

restore user's answer 

is this a read? 

if so, read ; else=write 

get user test pattern 

write the page to MBB 

do until wants to quit 

read tack the page 

write out results 

do until wants to quit 

addr of done message 

print it 

rune ^ to quit 

call Edos to terminate pgm 



♦ ♦♦>«3k**#*##*#*#*# end of Main Program *3k*###*#***#**##*** 



♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦♦♦♦♦ ♦3n####* ♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦ 

■* ASKJDSER subroutine 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦:!(♦♦♦♦♦♦♦♦♦ 



AskSOser : 



Ixi 

call 

call 

push 

call 

pop 

ret 



;called frem: 
asks user 
;** parm in - 
harm out - 

0, msgSaskf unc 

Prin tSString 

ReadSChar 

PSW 

Crlf 

PSW 



Main. 

if wants read, 
none. 

ans in reg A, 
all else=writ 
;addr of ask 
;print it 
;get the user 
;save user's 
;skip a line 
;restore user 



write 

R=rea 

e . 

fer f 

' s an 
a ns we 
after 
' £ an 



,cr quit 

d ,Q=quit 

unc msg 

swer 

r 

input 
s for ret 



f 
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I 




* ¥ 



I* CRLF subroutine 

I ****3ka|t****s!i*#*sk*#****#:(c**:(i***:»**3|t3(t*4<J|t*:»i*:>**JH*3(s##*JH:)c»****# 



crlf: 



mvi 

call 

mvi 

call 

ret 



AskSUser,Get$Bubble ,Get $?age 
GetJPattern, Print$Cut. 
issues a carr ret, line feed to consol 
parm in - none, 
parm out - none. 

;carr ret 
;output one char 
;line feed 
;output one char 



;called frcni: 

:** 

; 

Print $Char 
A, If 

Print $Char 



3 ^ * Sic 3k 9lc 9lc a|t * * * 3|E :k * 3k ale 9|t ]|n«; a|c :|c !|c :|E ^ ^ :k :|e 4i 

GETSBOBBLS SUbrout 

3)1 « 3k 3k JK # # V * 3k # :|t 4 4I * 90 * V * * * * * 4t 9 V 4 4 V ’ll * * 9 

;called frcm: Main. 
GetlEubble: ;** gets bubble # for 

;♦* parm in - none. 
;** parm out - loads 
Ixi D,msa$getbub jaddr 

call Print$String ;print 

;get bubble number - one byte 
call GetSHex ;gst h 

Ofh ,'clear 

D,bubdev ;addr 

D jstore 

Crlf ;skip 



am 

Ixi 

Stax 

call 

ret 



« * 9|C :0 90 9*1 90 4I * * 3k 4t :0 41 30 90 90 so * 90 « 

ine 

309*1 30 90 O 90 90 30 =090 30 9*1 90 30 * 90 * 3030 * 01 

test from console 

•bubdev* variable, 
of get-bubble mso 
it 

ex digit 
high nibble 
bubdev byte 
it 

a line after input 



O 90 30 9k 3k 30 30 30 30 3k 3k 9*C 30 3k 90 30 30 3k ** 4l 90 90 90 90 30 30 30 30 90 30 30 30 90 90 90 30 90 90 30 90 90 90 30 30 90 90 30 30 90 90 90 90 90 30 9k 90 

* GETSHEX subrcutine 

ak 3^ a^ a^ ak a|e ak 1e ak ak ak ^ ^ aie ak ak 3k ^ ak ^ aj( # ak a# ^ :|i ak 3fi 3|c kie :|c ak 3k 9k 3|e 3k 3|e a«e a|e X ak 3k 3|c ak 9|( ak 

called frcm; GetSBubble, Get$Page, 

Get IPattern. 

gets a number from cons, converts both 
nibbles to the hex value, ie., 'F* keye 
in = 46 Ascii, so FF returned in A 
parm in - ncne. 

parm out - double hex value in reg A. 



GetJHex; 



call 
mvi 
mov 
mo V 
ret 



■k3k 
903k 

ReadiChar 
H,08H 
L, A 
A, M 



;get char from crt 
;high byte of table addr 
;low byte - index to table 
;table lookup 



ak ak ak 3k 3k 3k ak ak 3k X ak ak ak ak :k 3k 3k ak 3k ak 3k :k 3k ak 391 ak 3k 3k ak ak ak ak 3k 3k ak 3k ak ak ak ak )k 3k 3k 3k 3k 3k 3k 3k 3k 3k ak 3k ak 3k 3k ak 
* GETJPAGE subroutine 

alf akakakaicakak akakak akak akak akakalc akak ak akakakakak ak akakak aftakak akak ^c^akakak akakak akakakakak ak akakakak akakakak ak 

;called frcm; Main. 

GetSPage; ;** gets user page # 

;** parm in - none. 

I** parm out - loads 
Ixi D,msg$getpg ;addr 
call PrintJString ;print if 
;high byte of page number 



for test from console 

•gag^no* variable, 
or getpage msg 



call Get$Hex 
ani Ofh 
Ixi D,pageno$hi 
Stax D 

ilow byte - 2 ascii to 
call GetJHex 
ani OfOH 
mov B,A 
push 3 



;get hex digit 
;clear high nibble 
;addr pageno high 

1 hex digit in cageno$lo 
;get hex digit-hi 
;clear low nibble 
;save high nibble 
;save high 
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call GetSHex 
ani OfH 
pop B 
ora B 

Ixi D,pag€r.oJlc 
Stax D 
call Crlf 
ret 



;g€t hex digit-lo 
;clear high nitble 
;restcre high 
;combine hi and lo 
;addr pageno low 
;store ir 

;sKip a line after input 



GetSPattern : 



** if *:^:t‘***^**^**-****** ****************************** 

* GET$PATTEBN subroutine 

Main. 

pattern for test from consol 
none. 

- loads 'pattern' variable. 
;addr ox get pattern msg 
;print it 
;get hex digit 
;clear low nibble 
;sav€ high nibble 
;save high 
;get hex digit 
;clear high nitble 
jrestore nigh nibble 
;combine hi and low 
;addr of pattern 
;store it 

;skip lines after input 



diit:$vli±±dt7l^±*:yic afc:^ :|c:^:k :l(:|n|[:9e:9c 3|{ :^*4c3le A 

* INITSCONI subroutine 

* * :(c:K * # # 4c * * A * 3|c * * * * :* Wi :<i :<> 4> * :4> * ^ 4c ^ 4c 4< * 3k * * 4= * * 3k 

called from: Main. 

*’*' inits tne MEB controller 

*4t parm in - none. 

=k* parm out - none- 



m 


;called from; 
;** gets user 


Ixi 


;*3k parm ir - 
;** parm out 
D, msgSgetpt 


call 


PrintSString 


call 


GetSHex 


ani 


OfOH 


mev 


B, A 


push 


B 


call 


GetSHex 


ani 


OfH 


pop 


B 


ora 


B 


Ixi 


D, pattern 


Stax 


D 


call 


Crlf 


call 


crlf 


ret 





InitSCont; 



Ixi 

call 

Ixi 

Ixi 

lOOV 

Ixi 

mo V 

Ixi 

mvi 

Ixi 

mvi 

Ixi 

call 

ret 



D , msgJinit c 
PrintSString 
B, MBSmaxpaaes 
H,?$lcopszlo 
M , C 

a, PSloopszhi 
a, 3 

K, PJogsize 
M, MBSpagesize 
H, PScmdreg 
H, MBSreset $cmd 
D , msgSdcnec 
PrintSString 



addr of init 
print it 
pages in 
loopsize 
load Isb 
loo psize 
load msb 
page size 



msg 



each loop 
Isb port 
of loopsize 
msb port 
of loopsize 
port 



load page size 
command register port 
issue reset command 
addr of done msg 
print ir 



4c±9k:«9lc9k:^:|e9ie^ alette :|c:i|c:ie 4c:4eafcaic :i|c 

* INITSDSVS subroutine 

ak :|e 9|e Sic 3|c 3^ :ic * 9|c 3IC ^ :4c :4c 3^ 9|c # * ^ :|c a|e 3|c # 

;called from: Main. 

InitSDevs: ;*=*« inits each bubble device on the MBB 

;♦* parm in - none, 
parm out - none. 

Ixi D,msgSinitd ;addr of init msg 

call PrintSString ;print it 

mvi A,0 ;rirst device 1 
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X44 im It (Dw« 



EachSdev: 

push 

adi 

call 

Ixi 

call 

pop 

iXl 

mo V 

push 

Ixi 

mvi 

call 

Ixi 

call 

pop 

inf 

cpi 

inz 

Ixi 

call 

ret 



PSW 

030H 

Print$Char 
D , msqSdsv 
PrintSString 
PSW 

H,P$selbub 
M, A 
PS w 

H , PScmdreq 
M, MBSinitIcmd 
Wait 

B , msqSdone 
PrintSString 
PSW 
A 

OSH 

Each $dev 
D , msgSdoned 
PrintSString 



save device # 
convert to ascii 
print it 
addr of dev msg 
print it 
restore dev # 
select bubble port 
select this device 
save dev # 

command register port 
issue init command 
let controller work 
addr cont done msg 
print it 
restore dev # 
next device # 
last device ? 
if not, do next 
addr done msg 
print it 



* LOADSPAGE subroutine * 

* 4 * 4(c # # ** * :«E :«i :|c :ti:« * « # :«E « X :4c # X :ii X « « V :4c :tc4i :«i * * 3|( * V * * 3|c 3k 

ReadSPage, WriteSPage. 
variable ' pagenc* to the 
none, 
none 



LoadSPage: 



Ixi 


;called from: 
;44 loads the 
;44 parm in - 
parm out 
H,pageno$lc 


mov 


A,M 


ixi 


D , PSpsello 


Stax 


D 


inx 


H 


inx 


D 


EOV 


A, M 


Stax 


D 


ret 





HBB 



;addr of page # 1st 
;to accum 

;page select Isb port 

;load it 

;to page # msb 

;to page select msb port 

;to accum 

;lcad it 



* PRINTSCHAR subroutine * 

ic4 3^««**:tc43k3k4*«3k3k3lc3k3|c444*34>*«4*4t3k3k:ic4*444*4Wcxk3|c3*t3|c4i:tt4**:«!4«4*«*Wc3«c 



PrintSChar : 


;called from: 
•44 calls Edos 


Crlf , InitSDevs, PrintSI , 
Print$2. 

to write a char to console 


mov 


;44 parm in - 
•44 parm out - 
B, A 


char to write in Reg A. 
none . 

;load parm for Bdos 


mvi 


C, BdosSconcut 
Ps W 

BdosSentry 


;func 1 for Bdes write cha 


push 

call 


;call Bdos to write 


pop 

ret 


PSW 





PrintSOut; 



4 4 4 4 9k 4 4 3t: X A A 4 3tc 3«c 3k 3k A 3k 3k 3k 4 ^ 4 4 4 4 3k 4 :<> 4 4 :(c 3* 3tc 3k 3k 3k 4 4 3k 3k 4c 4 4 3k 4 4 4 4 lie 3k 4 3k 3k 4 4 4 3k 

* PRINTSOUT subroutine * 

:k 3^ A ^ ^ ^ :i^ sle * 3^ 3|e 4e ^ ^ ^ :|t :ifi :|i lit ^ ^ ^ 3^ 3|r 3^ 3|c 9^ 9ie 3|e 9le :4c 

;called frem: Main. 

;44 reads page from MBB buf-writes to cons 
;** parm in - none. 

;** parm out - none. 

Ixi D,msgSprt ;addr of print out msg 

call PrintSString ;print it 

mvi C , MBScaaesize ;counter for bytes to read 



Prt; 



Ixi 



Idax 

push 

call 

pop 

dcr 

jnz 

Ixi 



call 

call 

ret 



D, PSrdreg 

D 

B 

PrintJ2 



B 

C 

Prt 
D , ms 
Prin 
Crlf 




read data register port 
load from fifo to accum 
save counter 
print what was read 
restore counter 
dec counter 

read next if not 18D read 
addr of done msg 
print it 
skip a line 



* PRINT5STBING subroutine * 

« ^ 4 * * 4c « 3k # :4c :«c * ^ « 3|c « « * 4c « V * » ak « « :<E3(c V * m « :<c « # « » })C « « V * 



Print$String; 



mvi 

push 

call 



pop 

ret 



;called from: AskSUser, Get5Bufcble ,Get $Page , 
; Get $Pa t tern. Ini tiCont, Ini tSDe?s,ilain, 

; Pr in t$ Cut , EeadSPage, Write $Page . 

;*♦ prints a string to console via Bdos. 

;4c4c parm in - address of string in reg D. 
parm out - none. 

C,Bdos$pstr ;func# for Bdos print string 

PS w 

BdosSentry ;call Bdos to print 

PSW 



^ # :|c ak # :4c ^ ^ Y :<i 9tc 3^ j|c :|i 9|c a|M|i 9(e 4 k 3$r ^ # 3|e 9|e Jlc :4 k 3^ 3|e 

* PRINTSI subroutine * 

4c4*4c4c4c4c4c4c4c4c4c4t4c4c4e4c4c4t4c4c4c4c4c4cV3k4c4c4c4c4>4c4cV4c4c4cV4c4c4c4c4c4c4c4c4cV4c4c4c4c4c4c4c4c4c 

;called from: Print$2. 

PrintSI; ;** converts hex value of low nibble to 

Ascii and prints it to console, 
parm in - hex value to 
parm out - none. 

high 



am 

adi 

daa 

aci 

daa 

call 

ret 



;** 

• 4 c 4 c 

6f H 
090H 



;clear 
;ccnvert 



print in reg A 
nibble 



040H 

Print SChar 



ni 

lo 



;convert 
; print char 



« :k 4c 4c 4c 4c 4c 4c 3k 4c 4c :k 4c 4c 4c 4c 4c 4c 41 4c 4c 4c 4c 4c 4c 4c 4^ 4c 4c 4c 4c 4c 4c 4c 4c 4c 4C4C 4c 4c 4c 4c 4c 4c 4c4c 4( 4c 4c 4c 4c 4c 4c * 4c 4c 4C 4c 

* PRINT$2 subroutine * 

;called from: PrintSOut, Wait . 

Print$2: ;** converts one byte hex to two Ascii 

digits and prints out one at a time, 
parm in - hex value to print in reg A. 
parm out - none. 



. :tc4c 
I 4c 3k 

push PSW 
rrc !rrc!rrc! rrc 
call PrintSI 
PSW 

PrintSI 
A , blank 
PrintSChar 



;s ave 
;move 



pop 

cail 

mvi 

call 

ret 



low dig 
hi nibb 
convert and 
;restcre low 
;ccnvert, and 
;blank char 
;print it for 



It 

le to low 
print 
digit 
print 

separation 
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•* READSCHAB subroutine ♦ 

; :^:^:|i*4e3tc^4e3|c:^3ka|ea|calt3|c:4e3leil(:|c#:k:|c:4e4e4e 

;call€d frcm: AslcSUser, GetSHex. 

;*★ reads one character from the console 
;** parm ir - none. 

;** parm out - char read in rsg A. 
C,Bdcs$conin ;func # for Bdcs read char 

Baos$entry ;call Bdos to read 

07fH ;clear parity tit 



RsadSChar : 



mvi 

call 

ani 

ret 



3^ 3|i «4c 4i « * * * * *4c 4i « 4> * 4t * 4c * * 4c 4t * * « ^ 4i 3tt« 4t 4c 4c4c * * 4c* * » 4c 4t4c 4i 3it 4c«4c 7 * 

* READSPAGE subroutine * 

*3k4c4c*4c4c*4c4c4c4c4c4c*4c4c4c***4c4c*4c4>*4c4c*4!4c*4c4c4>c^4c4>**4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 

;called frcm; Main. 

RaadBPage; interfaces with MBB to read a cage 

;*4c parm in - uses 'pageno* S ’bubdev* vars 
;*4c parm out - none. 

call LoadsPage :load page number to MBB 

device number 

;load addr of dev # 



;load bubble 

Ixi D^bubdev 
Idax D 

Ixi H,P$selbub 
mov M,A 

; issue read command 
Ixi D,msg$rd 

Print SString 
H, PBcmdreg 
M,M3$read$cmd 
Wait 

D , msaSdone 
Print SString 



,to accum 
;select bubble 
;lcad dev # 



register port 



call 

Ixi 

mvi 

call 

Ixi 

call 

ret 



;addr of reading msg 
;print it 

;Ocmmand register port 
;issue read command 
;let controller work 
;addr of done msg 
;print it 



:*9k)lnkakik:|c#3|e^ 

* WAIT subroutine * 

3lr3*3k4c4c4c4c*3k4c4c4c4c4c4c4c*4c4c**4c4c4c4c*4c4c4c4c4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c4c4c4>»4c4c4c4c4c4c4c4c 

;cailed frcm: InitSDevs, ReadiPage # 

; WriteBPage. 

Wait: ;** makes a delay while the cont works 



' *4c 
' 4Mk 



parm 

parm 



in 

OU' 



Ihld 6 
Ihld 0 
Ihld 0 
Ihld 0 
Ihld 0 

Waiti: Ixi H,P$statreg 

mov A.M 
push PsW 
call Print$2 
pop PSW 

am MBBbusyScheck 
nr Wait! 
xi H,P$statreg 
mov A,M 
call Print$2 
ret 



none, 
none . 

;30 cycle 
;5 cycles 



delay at 2.5MHz 
each Ihld inst 



1 



;status register port 

;read status register 

;save status 

;print out status 

;restore status 

;busy mask check 

;if nusy, check again 

;stat reg ?ort-get last stat 

;read status register 

;print out status 
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* WRITESPIVGE subroutine 

« « * :* * * :(c # * # * * :|t A lie * >k 3fi 4i * :H « * :« He 41 4I :tt « # « j|r « 3H 4c :* « 4c * 3«t * 3)c * * :«C ^ « ♦ « * » 



WriteSPage: 



Writ el 



call 
;load 1 
mvi 
Ixi 
Ixi 
mov 
Stax 
dcr 
jnz 

;load b 
Ixi 
Idax 
Ixi 
mov 
; issue 
Ixi 
call 
Ixi 
mvi 
call 
Ixi 
call 
ret 



•.called from: M 
interfaces 
;*4c parm in - u 
;** parm out - 
LoadIPage 
8 test bytes to 

C, MBipagesize 

D, P$wfr eg 
H, pattern 
A,» 

D 

C 

IT i 1l 0 1 

ubble device num 
D , bubdev 
D 

H, P$selbub 
M, A 

write command 
D, msgSwrt 
PrintSString 
H , P$cmdreg 
M, MB$write$cmd 
Wait 

D, msgSdone 
PrintSstring 



am. 

with the MBB tc write a pag 
ses ’pageno’ & ‘bubdev' var 
no ne . 

:load page number tc MBB 
fifo 

;counter for bytes (18D) 
;writ€ data register port 
;addr cf pattern tc write 
;load pattern to accum 
;write a byte to fifo 
;dec counter 

;jump if not 1 8D written 
C0 r 

;lcad addr of dev # 

;to accum 

;select bubble register por 
;load dev # 

;addr cf writing msg 
;print it 

;ccmmand register port 
;issue write command 
;let controller work 
;addr cf done msg 
;print it 



A A A 4c A 4c He He A He A A A He A He A A A Hi Hi A A He 4c 4c 4> 4c A A A 4c He A A A A 4c A 4c 4c He He 4c 4c He 4c A HC 4c A A 4c A 4c 



DATA AMD VARIABLE AREA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAaAAAAAAaA AAAAAAAAAA 



fiutdev dt 0 

pagerc$lo db 0 

pagenoShi db 0 

pattern db 0 



msgSaskfunc db 
db 

msgSdev db 

msgfdone db 

msQ$donec db 

msgSdoned db 

msgSgetbub db 

msgSgetpg db 

msgSgetpt db 

db 

msgSinitc db 

msgJinitd db 

msafprt db 

msgSguit db 

msgSrd db 

msgSsignon db 

db 

msgSwrt db 



'Enter a R to read, Q to quit, all else ' 

'is write: ',ecl 

’ device # initing. ' ,eol 

• done. ' ,cr,lf ,€ol 

•Done with controller. ', cr, If , sol 

'Done with devices. ', cr, If , cr , If , eel 

•Input 1 digit bubble i (0-7): ',ecl 

•Inout 3 digit hex page # (000-280): '.eol 

•Input 2 digit hex test pattern (00-FF) : ' 

eol 

•Initializing controller.... ',eol 
•Initializing the devices... ',cr,lf,eol 
•Page read is: '.eol 

1 f , cr ,lf ,cr , ' ** End of Test ** ' ,lf ,cr , eol 
•Reading a page... ',eol 

lf,cr,' ** MBB-80 CP/M-80 • 

•DIAGNOSTIC TEST ♦* • , cr , 1 f , cr ,lf , €cl 
'Writing a page... ',€ol 
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rt 






able for converting ascii to hexadecimal 
q 0830H 

db 00H,1 1H,22H,33H,44H,55H,66H,77H,88H,99H 

orq 0841H 

db 0aaH,0bbH,0ccH ,0ddH, OeeH^OffH 

; End of Program 

’ END 0100H 
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If ** 



AEFENDIX B 

FBOGBAM LISTING OF DIAG86S.A86 



FILENAMES: Pascal = MB. DIAG86S. TEXT 
CP/M = DIAG86S.CMD 

8086 DIAGNOSTIC TEST FOR PC/M MBB-80 BOBBLE MEMORIES * 

* :(i :<■ :4c * * :4c * :4c * ^ « :tc * :ic « iK 4M(t ^ ^ 3|t ^ ;jc # * il( « « 4 9|c :ic Kc :)c 4c V :!■ # If # 4i m * 4c ait A 



CONFIGURATION: ^ 

HOST - Intal 86/12A SEC. 20 address lines, MDS system. 
Data bus on 86/12A converting to low 8 bits 
all high. 

MBB - interrupts inhibited, single-page mode, 

20 address lines. 

This program writes and then reads a test pattern in 
each page of each bubble chip on MEE-80 boards. Error 
diagnostics are printed as errors are found. An error 
leg is printed at the end of each pass. Testing is 
continuous until any character is keyed into the console. 

The MBB-80 controller base address is read into variable 
•ME contbase* . MBB-80 address select pins must correspond 
to this address. This program uses memory mapped I/O 
through the base address. 

« 4 4c 41 4c 4c * 4c 4c 4c * 4t 4c 4C 4C4C 4> 4c 4c 4c * 4c « 4c 4C * 4c 4c 4C 4c 4c 4c 4C » 4c 4< 9 # 4> # 4c 4c 4c 4c * 4> 4c 4c 4c « 4c 4c 4c 4c 4c 4c * 4C 4c 

Jeffrey Neufeld and Michael Hicklin, CS-03, Thesis * 

4c 4 4i 4> 4c 4c 4c 4c * 4c 4c 4c 4c * 4c 4c 4c 4c 4c 4; 4c 4c 4c 1C 4c 4 4c 4c 4c 4 4c c* 4c 4c 4c 4c c4 4c 4c 4c 4c 4c 4c 4c 4c* 4c 4c 4c 4c 4c 4c 4c 4c 4> 4c 4c 4c 4c 



; 4 c Edos function numbers 
Bdcs_conbuf equ 10 
Bdes conout equ 2 
Bdcs~constat equ 11 
Bdcs_pstrinq equ 9 
Bdcs_reset equ 0 



for calls * 

;console input string funct # 
; console output char funct # 
;get console status funct # 

; print string until •$' funct 
;cP/H-86 reset to CCP funct # 



# 



;* MBB characteristics * 
MB buflen equ 18 

ME“maxdevs ecu 7 

MB_maxpages equ 641 

ME_pagesize equ 18 



; buf f er length for single page 
; bubble devices are #0-#7 
;# of pages on each bubble device 
;bubble device page size 



;* MBB command byte masks (with interrupts inhibited) * 

ME bu?y check equ 00100000E ;gcnt busy? status check (20H) 

ME init_cmd ecu 10000001E ;initialize the controller 18 1H) 
MB read cmd ecu 10000010E ;sinqle-page read command (92H) 
MElreset_cad equ 11000000E ; reset tne controller (COH) 
MB_write_cmd equ 10000100S ;single-page write command (84H) 



:* Miscellaneous eauates 
Dlank equ 020H 

corbuf_size equ 80 

cr equ OdH 

If equ OaH 



Ascii blank 

size for input buffer for console 
Ascii carriage return control char 
Ascii line feed control char 



t 
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* :4< ^ 34c * * ^ ^ ^ * 'iE 4> 

* MAIN FSOGBAM - CRIVER ♦ 

* 3|*3|t5jt#*:(t ;4s4t **♦♦♦♦♦♦♦*»***» ♦***♦♦* *j)t*j(njt 3d* ♦**:jt*>tc*Jit**:4i*3(c*j(t**j4c** 



CSEG 



6 IAG 86 S: 



call 
call 
call 
Test loop: 

call 
call 
call 
call 
; advance 



Set_Up 

Get Cont Addr 
Inil Con^ 



;do initialization 

;get address of MBB-80 base 

;init the cont and devices 



Get Test Buffer 
Wri^e Page 
Read Page 
Checlc Errors 
to next page 



;get a test pattern. fill buff 
;write a page to bubble 
;read a page ffom bubble 
;check errors in write/read 
in a device, see if last page 
inc curr page_no .-increment current page # 
cmp C’arr“page nc,MB maxpages-1 ;last page on dev? 
jnz Test”loop" “;if not. test next page 

;was last page,aavance no next bubble device on board 
mov DX, offset msg_donebub ;addr of done bub msg 
call Print String ;write msg to console 
cmp curr fub no, HB_maxdevs ;last bubble on board? 
jz Done“pass :if sc, done with a pass 

;prepare to test next bubble device 

inc curr bub no ;if net, increment device # 

mov curr”page no,0 ;set page number back to zero 
me errptr " ;ptr tc next entry (dev) 

jmp Test loop ;go test next device 

; finished with all devices on board, print summary 
;prepare to run another pass if not stopped by user 
Ecne_pass: 

'' Error Summary ;print error summary 

End Pass ;end of pass housekeeping 

anything keyed in at the console 
CL,Bdcs constat ; function # for Bdes call 



call 
call 
;see if 
mov 
call 
cmp 

iz 



Cone 



Bdos ~ jcall Bdos to get cens status 

AL,01 ;01=char keyed in, 00=nothing 

Done test ;something keyed, user quits 

user wants to continue 

mov DX, offset msg testing ;addr of testing msg 

^ - ;vrite msg to console 

;keep testing 
the testing 



call Print String 
jmp Test_Ioop 
;user wanted to quit 

tSS't I 

call Close Up 
mov CL, Bdos reset 
mov DL,0 ~ 
call Bdos 



;do end of run housekeeping 
;function # for Bdos call 
;parameter to release memory 
;call Bdos to terminate prog 



ojid of Main Prcgtam ********************^* 



* BDOS (CPM/86) subroutine * 

A 3^ aic :ie ak ak X 3k * :|c 9k A * 3k ale A ak :|c 2 ^ 4 : :ic 3fc 3k :fe # 4c « :|c :<e 9 k ^ 

;called from: Clcse_Up,Main,Get_Cont Addr, 
Print_string, Putchar.” 
entry tc Bdos via software interrupt 224 
parm in - caller loads regs as per req 
parm out - as supplied by Bdos returns 
;808b software interrupt 



Bdes: 



int 

ret 



•** 

hn 
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^ •* ♦:fea|e:fc :4c ape ♦****3^* 

[* CHECK ERBORS subroutine * 

Tk:ii:|taie*#*3lca|c:ie j|c A*3*t3k34c34e^34e*!|P^:4c:4t* :4n4c:4tar 14194 c :|t 3 ( 1 :# a^csic^ile;^ 3|e94c4e3|c’ie 34c# ;4c9|c:#34c:|c 4:34c i4t 

;call€d from: Main. 

;** see if read what was written 
;** parm in - none 
;** parm out - none 
AL, pattern ;pattern to accum 

CX,MB buflen ;countep for loop 

EX, offset test buffer ;index into 



Check Errors; 



mov 

mov 

mov 

lest byte: 
emp 

push 

call 

call 



for manipul 
thru buffer 
test buffer 



Gccd 



pop 
test : 
inc 
loop 
ret 



[BX ],AL 
Good tesr 
AXJpush BXIpush 
Err_o ut 
Log Error 
cxipep BXlpcp AX 

BX 

Test_byte 



;compare buff to pattern 
;if good, check next byte 
CX ;save patt/buff addr/entr 
;it is bad, print error 
; log error 

; restore entr/buff addr/patt 



;increoent index 
;dec CX and loop 



if not zero 



* # :4n4c 4c ^ :(c 4 e * # :4c « 3«c # 3(c 4c 4c * * * 44c :4c 4c :4c * V 41 * 4r 4c ^ 4c * V :ic ^ 4c :(c :|E 

* CLOSE OP subroutine 4c 

* ###94c94c94c#:4c# ## 94c Ik## i4c# ####### 941 #### 94 9k#94c ############## #a|c## ####### 

;called from: Main. 

Clcse_Up: reads garbage from console, issues goodbye 

;4c4c parm in - none 



:** 



;claar 
mov 
mov 
mov 
mov 
call 
; issue 
call 
mov 
call 
ret 



out - 



. - - parm 

stop input characters 



none 

from the console buffer 
CL, Bdos_ccnbuf ;input console string func# 
BX. offset ccns_buff ;area for cons input 
byte ptr [BX],ccnbuf size;tell Bdos buff size 
DX,BX ;load parameter reg for Bdos 

the console 



Bdos ;read 

:he goodbye message 
Crlf :skip 

DX, offset msg_endtest 
Print String ;write 



extra line 
;addr of end test 
msg to console 



msg 



*# 9k 9k# ###############:*##### ################## ############### 

* CRLF subroutine * 

■««4c4c4c4c4c4c4c4c4c4c4:4c4c4cak4c4c*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4:4c4c4c4c4c4c4c4>4c4c4e4c4c4c4c4c4c4c4c4c4c4c4c 

;called from; Close_Up ,Get_Con t Addr, 
;End_Pass, Init Cent, Main, Print String, Set_Up. 
sends carriage return, line”feed to cons 
in - none 
cut - none 

;carriage return char 
;write it to console 
;line feed char 
;write it to console 



Crlf: 



mov 

call 

mov 

call 

ret 



>4c* 

;** parm 
;*4c parm 
AL,cr 
Putchar 
AL , If 
Putchar 



•ft !k ######## ##9k:*### Ik# # 9k#### ak ############################### 9k# 

* EHD PASS subroutine * 

9k '4 ###*:*########### 3|r##4c### # ################ #######9^######### 

;called from; Main. 

End_Pass: performs end of pass housekeeping 

parm in - none 

parm out - none, effects alobal vars 
•.convert oass # to Ascii and print after pass message 
mov AL.pass no ;?ass number to accum 

call Hex_To_iIscii ;ccnvert to Ascii 
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.m 




mov EX, offset msq_d_pass ; addr of pass # in msg 
310V byte ptr [BX%DH rload high byte to msg 
inc BX ;bump to next position in msg 

mov byte ptr [BX],DL ;load low byte to msg 
mov Dx, offset msg_dcnepass ;addr of done pass msg 
call Print String ;write msg to console 
call Crlf “ ;skip a line 

;inc pass number and reset all variables for new pass 
inc pass no ;add one to pass number 

mov newoass flag.l ;set new-pass flag cn 
mov curf buB nc,0 ;reset to bubble device 0 
mov curr“page no,0 ;reset page number to 0 
mov errp^r, offset errlcg ; reset addr of error log 
ret 



I* ERR OUT subroutine * 

;called from; Check Errors. 

Err_Out: ;♦* issue an error message to the console 

;** parm in - EX addr in buff of byte error 
;** parm out - none, effects global vars 
push BX ! push BX ;save addr of error twice 
cmp newpass flag,1 ;is this a new pass ? 
jnz Prt_err“ ;if not. print error now 

mov newpass_flag,0 ;turn flag off 
mov DX, offset msg_header ;load addr of header 
call Print String ;print the header 
; put zeros into all error counts in the log 

mov CX,MB maxdevs+1 ;count for # of dev to loop 
mov BX, offset errlcg ;addr of error log 

Clr_log; 

mov byte ptr [BX],0 ;clear log entry error count 
inc BX ;bump pointer to next entry 

loop Clr_log ;dec Cx and loop if not zero 

Prt err: 



mov 

call 

mov 

mov 

;load pag 
mov 
call 
mov 
mov 
mov 
call 
mov 
mov 

; compute 

addr 

sub 

mov 

call 

mov 

mov 

;load pat 
mov 
call 
mov 
mov 
pop 
mov 
call 
mov 
mov 



AL,curr bub no 
Hex_To Iscii 
msg_e dev,DH 
msg_e“dev+1 ,EL 
e numBer of erro 
AL,byte ptr curr 
Hex To_Ascii 
msg“e page,CH 
msg“e“page+ 1 ,DL 
AL,Byfe ptr curr 
Hex TO Ascii 
msg~e page+2,DH 
msg_e~page+3 ,DL 
and load byte of 
BX 

buff eau offset 
BX,addf buff 
AL,BL “ 

Hex_To Ascii 
msa_e ■Eyte,DH 
msg_e~byte+ 1 ,DL 
tern fhat was wr 
AL , pattern 
Hex To Ascii 
msg^e wrote, CH 
msg e~wrote+1,DL 

BX 

AL,C BX ] 

Hex_To Ascii 
msg_e_f ead, DH 
msd_e read+1,DL 



;bub dev # to accum 
;ccnvert to Ascii 
;move in high byte to msg 
;move in low byte to msg 
r 

_page_no+ 1 ; hi byte of page# 

;convert to Ascii 

;high byte to msg(dig 1) 

;low byte to msg(dig 1) 
page_no ; lo byte of page# 
Tccnvert to Ascii 
;high byte to msg^dig 2) 

:low byte to msg (dig 2) 
rset or error in page 
;restore addr err byte offset 
test_buffer ;fcr computation 
;compute err offset in buff 
;offset to AL for conversion 
;convert to Ascii 
;mcve in hign byte to msg 
;move in low byte to msg 
itten and what was ’ ’ 

;load pattern just 
;ccnvert to Ascii 
;move in high byte to msg 
;move in low bvte to msg 
;restore addr or err offset 
;load byte just read back 
; convert to Ascii 
;mcv8 in high byte to msg 
;move in low byre to msg 



read back 
written 
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mov DX, offset iisg_err ;addr of total error msg 
call Print String ;print the error message 
ret ” 



;« ERROR SUMMARY subroutine * 

;called from; Main. 

Error Summary: ;** outputs summary of errors on each device 
“ ;** parm in - none 

;♦* garm out - none 

mov DXfOrfset msg summary ;addr of summary msg 
call Print string “ ;write msg to console 
;step thru erriog-convert to Ascii - print err counts 
mov CX,MB maxdevs+1 ;count for loop - # of devs 
mov BX, offset errlog ;addr of error log 
mov DI, offset msg counts ;addr of msg sum counts 
prt_loop; “ 

mov AL,[BXJ count from error log 

push BXlpusn CXIpush Di ;save addr, counter, index 
call Hex_To_Ascii ;ccnvert to Ascii 
pop DI! pop CX! pop EX ;rest index, counter ,addr 
mov byte ptr [DIj,uH :load high byte to msg 
inc DI ;bump to next pos in msg 

mov byte ptr [DI],DL :load low byte to msg 
inc DI ;bump to next pos in msg 

mov byte ptr fDI], blank ; Ascii blank to msg 
inc DI ;bump to next cos in msg 

inc BX ;increment buff addr to next 

loop prt loop ;dec CX and loop if not zero 

mov DX, offset msg counts ;addr of msg sum counts 
call Print String ” jwrite msg to console 
ret ~ 



^)lik^^Ht^^***^*****■*^^*i^**i|‘**^H^^^‘^^***********m**V********^^**■**^H^** 

* GET CONT ADDR subroutine * 

A :ift * * * A lit :<c * * « « 4c * * * * * V * * « * 3|> 4c 41 » 3|> « 41 * ♦ * 4t a(c 4c * * * * :«c « 

;called from: Main. 

gets base segment address for the MBB-80 
;** controller from the user at the console. 

♦4c 4t 



Get Cont Addr: 



parm in - none 
:♦* parm out - none, updates ME_contbase 
mov DX, offset msg_getaddr ;addr of get cont msa 
call Print String jwrite msg to console 
get base address keyed in by the user 

mov CL, Bdcs_conbuf ;input console string func# 
mov BX. offset cons_buff ;area for cons input 
mov byte ptr [BX],ccnbuf size ;tell Bdcs size 
mov DX,3X ;load parm for Bdos call 

call Bdos ;read from console 

;skip a line after input 
its keyed in 

uff+1 ;byte 1 tells how many 
:see if exacrly four read 

- ^ li ^ 



DA m U J 

byte 
DX, 3X‘ 

Bdos 
Crlf 

make sure only four die 
mov BX, offset cons i 
emp byre ptr [BX],!I 
ine Error input 



call 



_ .if net 4, error 

make sura all four digits are valid hex 

mov BX, offset cons buff+2 ;byte 2 starts data 



xor 

mov 

Check_val: 

mov 

emp 

jb 

emp 

ja 

emp 



AX, AX 
CX,4 
■ d: 

AL,r BXJ 
AL,b30H 
Error input 
AL, 04BH 
Error input 
AL, 03"5H 



;used for Ascii table index 
;number of digits to check 

;mov6 digit to AL for chking 
: check to see if too low 



see If too 



; check to 
;chk mid-invalid 



high 
(3aH-40H) 



139 



error 



jbe 
cmp 
•j ae 
imps 
Valid hex: 
sub 
push 
mov 
mov 
pop 
mov 
inc 
loop 

;con vert 
mov 
mov 
mov 
shl 
inc 
or 
inc 
mov 
mov 
shl 
inc 
or 

; store 
mov 



Valid hex 
AL.OUTH 



Valid 

Error* 



hex 

input 



; it is in the middle - 

€ index 
able 



AX#030H ;-30H to qex tabl 

BX ;sav€ buffer addr 

BX,AX ;AX is index to t 

AL, Ascii tablet BXJ ; table look up 
BX - ;restore buffer a 

byte ptrfBX],AL ; store hex back i 
BX ;next digit 

Check valid ; go check it 

4 valid hex digits to a binary nu 
BX, offset ccns buff+2 :byte 2 star 
AH,fBX] ■ " 

CL, 4 
AH, CL 
BX 

AH,r BX ] 

BX 



ddr 

n buffer 



mber in AX 
ts data 



AL,r BX ] 

CL, 4 
AL,CL 
BX 

AL.[BXJ 

controller base 
MB contbase ,AX 
jmps Ge^^cont ret 
; error in input, "issue 



;get rirst digit 
; shift it to high nibble 

; increment index 

; 2nd dig or'ed into low nibb 

; increment index 

;get third digit 

; shift It to High nibble 



; increment index 
:4th dig or'ed in 
address that was bu 

; go return 
message, retry 



Error_input: 

mov DX, offset msc_errinp ;addr of erro 
call Prrnt_String ; write msg to con 

call Crlf ;skip a line 

jmps Get Cont_Addr ;go ask again 

Get_cont_ret : " 
r 9 1 



to low nibb 
ilt in AX 



r message 
sole 



3lt 9li 9|t ^ :4e 3|c 

* GET TEST B 

'k 3^ sic Je ale afcSaie Aaleslcs^ale 

;cailed fr 
Get_Test_Buf f er : ; ** increm 

;** parm i 
;** parm o 
inc pattern 
mov AL, pattern 
mov CX,MB bufle 
mov BX, offset t 
Fill: mov fBX],AL 

inc aX 
loop Fill 
ret 



s|i 3|r 3|C 3|c 9|c ai( 3|c :|c a|i 3## 3|C 4C3|C 3|e 3|c s|e s^slc 3|e 3^ 3|C s|e :|c :|e a|c ar 3|e a)e SVC s|e 

OFFER subroutine * 

* :4c « « « 3|c :tc V ^ 4c 4i :4c ^ :jc # :(c :|c V # 

cm: Main. 

ents pattern and loads test buffer 
n “ none 

ut - none, effects global vars 
;add one (1) to oattern 
;pattern to accum for manipul 
n ;loop counter - size of butf 
€st_buffer ;set index into buffer 
;load a byte 
jbump index 

;dec CX, loop if net zero 



:4c 4i ft 4c * * 4c 4c A 4> * A * 4t ac * 4; 4 e 4c 4c :<■ 4c 4i 4( 4c 4< * ^ 4c * W * 4c 4c * 4< 4t 4c 4c 4c 4c 4c « 4c 4c ¥ 4c 4c 4> Sit ac 4c 

* HEX TO ASCII subroutine 4 . 

ft 4> A A 4c 4c 4c A A A A 4c 4c 4c A A A sr 4c ft 9 4c ft 4c 4> 4> 4: A A 4< 4c 4> A 4c 4c 4c * 4c 4c 4c A 4c 4c 4c A A A A 4: 4C 4c A 4c A 4e 4C A A 

;called from: End_Pass,Srr_Out , Error Summary. 
;*A converts a hex numcer to its hex"Ascii 
;A* parm in - AL has hex byte to convert 
:** parm out - DX contains hiSlo Ascii bytes 
low nibble of AL to Ascii hex digit 
AH,AL ;save hex # for hi nibble 

AL,0fH ;clear hi 4 bits Ic nibble 

AL,90H ‘.handles 0-9 (90H+40H= 130H) 

;decimal adjust 

AL,40H ;handle a-fH (41H-46H Ascii) 



Hex Tc Ascii; 



;convert 

mov 

and 

add 

daa 

adc 
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daa 




mov 


DL,AL , 


conv ert 


high nibble 


mov 


AL, AH 


mov 


CL, 4 


shr 


AL,CL 


add 


AL,90H 


daa 




adc 


AL,40H 


daa 




mov 


DH, AL 


ret 





;decimal adjust 
;low nibble Ascii fcr ret 
cf AL to Ascii hex digit 

;mov€ to AL for daa ops 

;set count for shr 4 

;shift hi nibble to lo nibble 

;handles 0-9 (90H+40H= 130H) 

;decimal adjust 

;handle a-ffi (41H-46H Ascii) 

; decimal adjust 

;high nibble Ascii for ret 



* 3|isli * A 3k :ii: :♦? ♦ ♦ 3k ajc 3k ♦ 3k * 3fc ♦ * ♦ an in :ic ^ 3k * ^ 

•* INIT CONT subroutine 

A a|i 3 (iakA*A A 3 kA 3 k 



;called from; Main. 

Init Cent; ;** inits the MEE controller and each device 

;»* parm in - nene 
;** parm out - none 

mov DX, offset msg_init begin ;begin init msg addr 
call Print_String ;write msg to console 
jinitialize page size and miner loop size 

mov AX, MB contbase ;address of controller base 
mov BS,AX” ;load ES to address bubble 

mov AX, MB maxpages ; pages per bubble device 
mov ES; P_Ioopsize_lo,AL ;loopsize low byte 
mov ES ; P_loopsize_bi ,AH ;lcopsize hi byte 
mov ES:P pagesize reg,MB pagesize; page size reg 
; issue reset Command t^ the controller 

mov AL,MB reset cmd ;reset mask byte 
mov ES; P_cmnd_reg, AL ; issue reset command 
;initialize each bubble device 

mov CX,MB maxdevs+1 ;count for loop-# of devices 
mov AL,0 “ ;device # to initialize 

Fcr each; 



mov ES : P_select_bubdev ,AL ;select each device 
mov ES:P_cmnd reg, ME init cmd ;init this device 
push AX! push C7!push ES ;save bubble #, counter, ES 
call Wait :waat for controller to work 

pop ES! pop CX! pop AX ; restore ES ,cntr, bubble # 
inc AL ;next device number 

loop For each ;dec CX, loop if not zero 

;issue msas indicating init done and test in progress 
mov DX, offset msg_initend ;init done message addr 
call Print String ;write msg to console 
call Crlf ” ;skip an extra line 

mov DX, offset msa_testing ;testing message addr 
call Print_String ' ;writ6 msg to console 
ret 



:i|i * 3k * 4c * * * * * * * A * A :(i * 4e « * * * 3* 4c * 



* LOG ERROR subrcuti 

A 3k A A A A A A 3k A A 3k A 3k :k 3k sir A 3k A 3k A 3k 3k A ak A A A A A 3|C 



A A 3k 3k 3k 3k A 3k 3k A :k 3k 3k 3k 3k A 3k A 3k A A A 3k 3k A 

A 

^ AAAAAAA AA AAAA AAAA AAAA aAA 



Lcq_Error: 



dc 



n 

i 

i 

ne_log; 

r 



ov 

nc 

nz 

ec 

et 



;called from; Check_Errors. 

;♦* log the error for use in pass printout 
parm in - none 

:** parm cut - none, effects global vars 
BX,errptr ;addr cf error log to 3X 

byte pxr [BX] ;add one to error count 
done log ;if not overflow, all done 

byte'ptr [BX] ;inc too big, reduce to max 
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« * 



;* PRINT STRING subroutine * 

• ^a|c:^:^aii:^4caft34t4(:^9|c3(|c^3|u|(:|c :|c9|c:|c34ej|[:|e:|c:i{9^3|(:|e^4c3«c:|c:4e4( 

icalled from: Close_Up,End_Pass, Err Out, 

Error Summary, Get Con’f Addr, 
Init_Ccnt, Mam, Set Uc," 
prints buffer addressed until hit 

parm in - address of buffer in DX 
parm out - none 

s_pstring ;function # for Bdcs call 
;call Bdos and print 
;skip a line 



Print_String: 



ng: 




:4c4e 




;** 


mov 


CL,Bi 


call 


Bdos 


call 

ret 


Crlf 



. ak :|K:^9!e:^4c3ic3|c:4e ici|:a|e:|e3({*3|r:4c:^:|t :fr:fc«*:4<4[3k3|e:|e3^*3(ca|c9^4c:4e3|Ei|K3|ci^#4t:|c:r3^3|e:|K:tt:fc#i|ti|ti|E 

;* PUTCHAR subroutine * 

. *ijjt****:(t**»***3)«**:*t* *»#*3(t****** 

;called from: Crlf. 

Putchar; ;♦* writes character from AL to console 

parm in - output char in AL 
;** parm out - none 

mov CL, Bdos conout ;function » for Bdcs call 
mov DL,AL ” ;load char to Bdos reg 

call Bdos ;call Bdos and send 

ret 



Read_Page: 



A;|«3tt4c34c:(E4i34c:tc*:(n|i*:(ialc4E«4i ^ *41** ^:4c:it 

* READ PAGE subroutine * 

***♦♦♦♦ ♦★’ft **5t'#***>''*a*4t*4t*4i4t4t****4t4t********st«4t****3ti4i3*m''*3tmt*4t*4t 

;called from: Main. 

;** reads a page into test buffer from bubble 
;*♦ parm in - none 

;** parm cut - ncne, effects global vars 
;select page number 

Ax, MB contbase ;address of controller base 
ES,AX~ ;load ES to address bubble 

AX,curr page_no ;current page number testing 

•’ selt' ‘ " " 



mov 
mov 
mov 
mov 
mov 
;select 
mov 
mov 
mov 



ES:P pagesel_lo, AL ; page select lo byte 
ES:P~pagesel hi. AH ; page select hi byte 
bubble device“and issue read command 
AL,curr bub no ;curr bubble number testing 
ES:P select“bubdsv , AL ;select current dev » 
ES : P“cmnd_reg, ME_read cmd ;issue read FIFO 
push ES “ ;save“ES 

call Wait ;wait for controller to work 

pop ES ;restore ES 

;read from MBB FIFO buffer into test buffer 

mov CX,MB buflen ;ccunt for loop-buffer size 

BX, offset test_buffer ;set index into buffer 



mov 

Bead_byte : 
mov 
mov 
inc 



AL,ES:P rdata_reg ;read a byte into accum 
r3X],AL” ;lcad accum into buffer 

BX ;increment index 

loop Read byte ;dec CX, loop if net zero 



mk 1$ :*:itak!jk:le Ax ?k A A 
A 

A A A* 



AAaAA 3I«AA3*4cA 3^ AA A:^A:|eA* AA AAAAA3|e AA A34e:4eA^^^a9eA^A3ie3ie3^A 

SET OP subroutine ♦ 

* 41 4( * 4T 41 4e 4( * 4( 4< 4t 4c 4> 41 4> * ^ * ’t' 4> 41 4< 4 e 41 4e 4e 4< 41 4t 4 e 4c 4 e 



S6t_Up: 



;called from; Main. 

;*’* inits variables and issues signon msg 
;** parm in - none 

;** parm out - ncne, effects global vars 
call Crlf ;ski? an extra line 

call Crlf ;skip an extra line 

mov DX, offset msg_signon ;signon msg address 
call ?rint_string ;write msg to console 
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mov DX, offset msg version ;version msg address 
call Print_String ” ;write msg to console 
call Crlf ;sl«ip an extra line 

; initialize all variables and flags 

' ;flag ind' 



IllOV 

rao V 
mov 
mov 
mov 
mov 
ret 



newpass flag.1 
curr buB no,0 
curr"page_nc ,0 
pattern, 1 
pass no, 1 



, ^ icating nee pass 

;current bubble # to 0 
;current page # to 0 
; initial test 
;initial pass 



attern is 1 
is 1 



errpBr ,of fset errlog ;addr of error log 



* « >ic 4c * ])E A* * 3*c * * 4c 3k ^ 3|< 4c 4c 3(1 4c 9ic 4c 4c 4c « 4c 4c 4c ^ * 

* WAIT subroutine * 

A 4i AAAAAAAAsk*A4cA*A AAA*A*AAAAA AAAA AAA A4CAAAAA AAAA AAA4 cAA AA3**A AA 



Wait; 



;called from: Init_Cont,Read Page, Writ e_Page. 
;** checks status of MEB controller for busy 
;** keeps checking (wait) until not busy 
;aa parm in - none 
:** parm out - none 

mov AX, MB contbase ;address of controller base 
mov ES,AX" ;load ES to address bubble 



^ € 0 Z0 * 

“ “ " mov AL, ES: P_status_reg ;get status register 

and AL,MB busy check ; is it all zeros ? 
jz see zero ” ;if so, keep checking for one 

Ccnt_busy: ~ 

mov AL, ES : P_status reg ; get status register 
and AL,MB busy check ;see if busy, and to mask 
•jnz Cont Busy ” ;if busy, check again 

ret ~ 



* WRITE PAGE subroutine * 

«AA3kAAAAAAAAAAAAAAAASKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 



Write_?age ; 



;called from: Main. 

;*=* writes a page from test_buffer to bubble 
;♦* parm in - none 
;** parm cut - none 
;select page number 

mov Ax, MB contbase ;address of controller base 
ES,AX" ;load ES to address bubble 

AX,curr_page_no ;current page # testing 
ES:P pagesel_lo, AL ; page select lo byte 
ES: P~pagesel_hi, AH ; page select hi byte 
;writa from test buffer into the MBB FIFO bufrer 

mov CX,MB buflen ;ccunt for loop-buffer size 
BX,ofBset test_buffer ;set index into buffer 



mov 

mov 

mov 

mov 



mov 

Write_byt e: 
mov 
mov 
inc 



AL,rBX] jbyte from buffer to accum 

ES: p_wdata_reg, AL. jwrite a byte to MBB FIFO 



BX 



;increment index 



loop Write_byte ;dec CX, loop if not zero 

;select bubble number and write FIFO buffer to bubble 
mov AL,curr bub_no ;load accum w/ bub# 
mov ES: P_selsct_bubdev , AL ;load bubble device # 
mov ES:P cmnd reg,MB_write cmd ;issue write FIFO 
call Wait" ~ ;wait lor controller to work 

ret 



* DATA SEGMENT AREA A 

* A AA*A* Aacx A AA AAA:*: AA AAAAAA A aA AA AA AA A A AAA AAA A A AAAA A AA A AAAA A A A 

DSEG 



143 



'*C Jk 

Ascii table 



org 0100H ;leave room for base page 

Variables 



db 

coDS_buff rb 
curr bub no rb 
currIpage_no rw 
srrlcg “ rb 
errptr rw 
MB_contbase dw 
ne«pass_flag rb 
pass_no rb 
pattern rb 
test buffer rb 



db 00H,01 H,02H,03H, 04H,05H,06H,07H,08H,09H 
rb 7 ; for Ascii 3aH to 40H - invalid 

OaH,ObB,OcH,OdH,OeH,OfH 
conDuf_siz6 ; area for cons string input 
1 ; bubble device # 0-7 testing 

1 ;butble page number testing 

MB_maxdevs+1 ;table ror dev error count 



1 ; pointer to errlog - index 

OOOOH ;case segment addr for MBB-80 

1 ;flag for indicating new pass 

1 ;pass number 

1 ;test pattern 

ME buflen ; buffer to bold test data 



*4 

sg_counts 

msg dcnebub 
msg“donepass 
msg_d_pas3 

msg_endtest 

msg err 
msg_e_dev 

msg_e_ page 

irsg_e_byte 

msg_e_wrote 

(Bsg_e_read 

msg_errinp 

msg_getaddr 



msg_header 

msg_initbegin 

msg_initend 

msg_signon 

msg_summary 

msg_testing 

msg_version 



string data area for console messages 
_(^MB_maxdevs+ 1) =^3) 



rb 

db 

db 

db 

rb 

db 

db 

db 

db 

rb 

db 

rb 

db 

rb 

db 

rb 

db 

rb 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 



Done with a bubble, $' 

Done with PASS ' 

$• 

♦User terminates testing...' 
returning to CP/M13' 



$• 

**EBRCR: not exactly 4 digits entered,' 
or invalid hex digits!.'!' 
cr,lf.'Key in 4 digit segment base addr' 
‘ess for SbB- 80 controller. ', cr , If 
Must be in hex (4 digits, then CR only)' 
= > $ ' 

Bubble Page Byte Wrote Read!' 
Initializing the controller..,!' 
Controller is initialized.!' 

I 

** MBE-80 CP/M-86 diagnostic TEST 
Total errors for each device (0-7);!' 
Testing. .. Hit any char (S CR!) ' 
to step after this pass,!' 

Single-Page Mode 
;GENCMD 



Version 1.0!' 

;o fill last address 



end Of Variables ♦ **3tt**:*t 

ESEG 

'k * :(r * :*i **** :tc etc* :4i * « V 4c 4: 4E « lie It « « 

* MBB-80 CONTROLLER AND PORTS * 

4 4 4 A ki 4i :« :*c 4 4 4 4c 4 * 4c '< 2 k 4 * 4c * 4 4 * 4 4 4> 4 4 4 * 4( 4> 4c 4> 4 4 4 4c 4c 4c 4> 4c 4 4c 4c 4 ^ 4 V 4c 4> 4 4c 4 4c 4c 



^*_pagesel_lo rb 1 

P_pagesel_hi rb 1 



;ls byte for page select, (0) 
;ms 2 bits for page select, (1) 
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P_ctnnd_reg rb 
P_rdata_rsg rb 
P wdata_reg rb 
P'status rag rb 
P”pagecn^_lo rb 
P_cag€cnt_hi rb 
P lccpsi 26 _lo rb 
P""lccpsize_hi rb 

rw 



P_pagesize_reg rb 

rw 

P_select_bubd€v rb 
P_int_flag equ 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

P 



select 



command register, 
re?d data register 
write data registe 
status register, ( 
Is byte for page c 
ms 2 bits for page 
Is byte for minor 
ms 2 bits for min 
internal use (page 
3age size register 
:i use only, (D,E) 
:two uses: sel bubb 
bubdev ; interrup 



( 2 ) 

ounter, (6) 
cntr , (7) 
Icop sz, (8 
loop sz, (9 

le dev (F) 
t flag (F) 



**=*'*’*'***♦* end of Ccntrcller and Port definitions 



* End of Program DIAG86S 



END 
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# # 



AgPENDII C 



PB06BAM LISTING OF 0IAG86M.A86 



FILENAMES: Pascal = MB. DIAG86M. TEXT 

CP/M = DIAG86M.CMD 

* t * * :(c * 3k *)( * # * * 3)1 * 4c « 4c ^ V Hi * * 4> * * # Ik 

8086 DIAGNOSTIC TEST FCR PC/M MEE-80 BUBBLE MEMORIES * 

4c 4r 4> 41 * 4c 4c 4c 4c 4i 4c 41 4c 4c 4c 4c 3k 4c 4c 4c 4i 4c 41 4c 4c 4c 4c 4c 4c 41 « 4> 4c 41 4c 4< « 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 41 4c 4c 4c 4c 4c 4c 4c 4i 4c 



CCNFIGUHATIOH: 

HOST - Intel 86/12A SBC. 20 address lines, MDS systeoi. 
Data bus on 86/12A converting to low 8 bits 
all high. 

MSB - Interrupts enabled if using vectored interrupts. 
Interrupts disabled by disconnecting the inter- 
rupt jumper on the MBB board if net vectoring 
interrupts. Multi-page mode, 20 address lines. 

This program writes and then reads a test pattern in each 
sector or each bubble chip on MBB-80 boards. Error 
diagnostics are printed as errors are found. An error log 
is printed at the end of each pass. Testing is continuous 
until any character is keyed into the console. 

The MBB-80 controller base address is read into variable 
’ME contbase' . MBB-80 address select pins must correspond 
to fhis address. This program uses memory mapped I/O 
through the base address. 

3k4 4<4c4c4c4c4c4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c4c4c4>3k4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4>4>4c4c4c4c9k4c4c4c4c 

Jeffrey Neufeld and Michael Hicklin, CS-03, Thesis * 

4c4i*4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c4;4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4i4c4c4c4c4c4c4c4c4t 



Edos function numbers 
Bdos_conbuf equ 10 

Bdos conout equ 2 

Bdcs“constat equ 11 

Bdos~pstring equ 9 

Bdos_reset equ 0 



for calls ♦ 

;console input string function # 
;conscle output char function # 
;get console status function # 

; print string until function 

;cP/M-86 reset to CCP function i 



# 



;* 8259a PIC port assignments 

PICpO equ OcOH ;8259a port 0 

PICpI equ 0c2H ;8259a port 1 



t 

« yt 



MBE characteristics ♦ 



MB_buflen equ 144 

ME_int_mask equ 1111110 

MB_int_type equ 17 



MB_maxdevs 
MB_maxpaqes 
MB_maxsectors 
MB_pages sec 
MB pagesize 
MB'skew 



equ 7 
equ 641 
equ 8 0 
equ 8 
equ 13 
equ 12 



: buffer length for sector 
1E ;mask to enable MBB interrupt 
;type 16 is IHO as defined to 

;8259a PIC in SOM init. MBB will 
;^enerate interrupts over this 

vices are 

;# of pages on each bubble device 
;# of log sectors on each bub dev 
;# of pages oer logical sector 
;bubble device page size 
;skew for page translation 
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BBE command 
MB busy check 
ME~init~cad 
HB^int Inhibit 
MB chklnt_mask 
MB~niulti_paae 
MB read cmd 
MB~rese^ cmd 
MB write cmd 



masks and status masks 



equ 00100000E 
equ 0000000 IB 
equ 10000000B 
equ 10000000E 
equ 00010000B 
equ 0C010010E 
equ 01000000B 
equ 00010100E 



cent busy? starus check (20H) 
init the controller (01 H) 
int inhibit/reset mask (BOH) 
mask testing if int set (80H i 
multi-page mode command (10H' 
multi-page read command (12H 
reset the controller (40H) 
multi-page write command (14H) 



* Miscellaneous equates * 



blank equ 020H 

conbuf size equ 80 

cr ~ equ OdH 

true equ -1 

false equ not 

If equ OaH 

vectored_int equ false 



Ascii blank 
;size for input buffer for console 
;Ascii carriage return cent char 
;for conditional assembly 
true ; for conditional assembly 
; Ascii line feed control char 
;this controls the assembly. 
;true=use hard interrupt to CPU. 
;fals6=poll int reg on MEB. 



;* MAIN PROGRAM - ERIVER ^ 



CSEG 



DIAG86M; 



call 
call 
call 
Test loop: 

call 

call 

call 

call 

;advance 

inc 

emp 

jnz 

;was las 
mov 
call 
emp 
jz 

; prepare 
inc 
mov 
inc 
. jn>P 

; finishe 
; prepare 
Ecne pass: 

call 
call 
;see if 
mov 
call 
emp 
jz 

; user wa 
mov 
call 
jmp 

;user wante 
Cone test: 

call 

mov 



Set_Up 

Get Cont Addr 
mil Coni 



;dc initializa tion 

;get base address fer MBB-80 

;init the cont and devices 



Get Test Buffer ;get test pattern, fill buff 
Write Sector ;write a sector to bubble 
Read Sector ;read a sector from bubble 

ChecTc Errors ;check errors in write/read 
to next sector in device, see if last sector 
curr sector no :increment current sector # 
curr~sector2no , ME maxsectors ; last sector ? 
Test~loop ;If not, test next sector 

t sec tor , advance tc next bub dev on board 
DX, offset msg_dcnetub ;addr of done bub msg 
Print string ;write msg to console 
curr Bub no, MB maxdevs ;last bubble on board? 
Done~pass ~ :if sc, done with a pass 

to lest next bubble device 
curr bub no ;if net, increment device # 

curr~seclcr_no,0 ;set sector # back to zero 
errpir ;ptr tc next entry (dev) 

Test loop ;go test next device 

d wilh all devices on board, print summary 
to run another pass if not stopped by user 



Error 
End P 
anylh 
CL, 3d 
Bdos 
AL,01 
Done 
nts I 
DX,of 
Print 
Test 
d to 



Summary ;print error summary 

ass ;end of pass housekeeping 

ing keyed in at the console 
os_ccnstat ; function » for Bdes call 

;call Edos to get cens status 
;01=char keyed in, 00=nothing 
;something keyed, user quits 



test 

o continue 
f set m 
Strin 
loop 
quit t 



sg testing ;addr of testing 
g ~ ;write msg. to console 



msg 



. he 



;keep 
testing 



testing 



Close Up 
CL, Bd5s_reset 



;do end of run housekeeping 
.•function # for Bdes call 
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mov DL,0 ;parameter to release memory 

call Edos ;call Bdos to terminate prog 

eij(j of Main Program **^*********^*^***** 



* BDOS (CP/B-86) subroutine ♦ 

* ;ti * * # # * # * * « * 4( * 3K * 4 e * * * V 4i # * It* 4 * 30 * * * * * ^ V ’ll 4 : itc3|c it :(c :4c* * * * 

;called from; Close_Up, Get_Cont Addr, Main# 

; Print String, PutcEar. 

Bdcs: ;** entry to Bdos via software interrupt 224 

;** parm in - caller leads regs as per req 
:** parm out - as supplied by Edos returns 
int 224 ;808b software interrupt 

ret 

*:♦ **#:(c* :0 30*#*3(edM|c *3|t 3k ;»^**^j»r*j|t**********j(t ♦♦**♦**;*♦♦*** ♦sled**** 

* CHECK ERROES subroutine * 

* 1 3)1 30>|t *** Sfc ***:♦♦* 3k Sk 3jt ** j(cjO *♦* :0 **♦**♦*♦ ♦ 

;called from: Main. 

;** see if read what was written 
parm in - none 
:** parm out - none 

AL, pattern ;pattern to accum for manipul 

CX,HB buflen ;cour.tep for loop thru buffer 

BXrOffse-c test_buffer ;rndex into test buffer 



Check Errors: 



mov 
mo V 
mov 

Iest_byte : 
emp 

u 

push 



[BX],AL ;ccmpare buff to pattern 

5ood_test ;if good, check next byte 

AX! push BXlpush CX ;save patt/buff addr/entr 
call Err Out ;it is bad, print error 

call Log“Brror ; log error 

exfpop BXIpop AX ;restcre entr/buff addr/patt 



pop 

Gcod_test : 

inc BX 

loop Test_byte 

]T 9 "t 



;increment index 

;dec CX and loop if not zero 



* CLOSE OP subroutine * 

;called from: Main, 
close Up: reads garbage from console , issues goodbye 



si*l 



parm in - none 
parm out - none 

input characters from the console buffer 
CL, Bdos cenbuf ;input console string func# 
BX, offset ccns_buf f • area for cons input 
byte ptr [BX],conbuf size;tell Bdos buff size 
px,BX ;lcaQ parameter reg for Bdos 

;read the console 



; clear 
mov 
mov 
mov 
mov 

call Bdos 
; issue goodbye message 
call Crlf 

mov DX, offset msg 
call Print string ~ 
ret 



:skip extra line 
endtesT ;addr of end test 
;writ€ msg to console 



msg 
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;* COMPUTE PAGENO subroutine * 

;called froai: Read Sector, Write Sector. 

ConFUte_Pageno: ;** computes 1st page # for a given sector 

parm in - none, works on curr_sect cr_no 
parm cut - none, updates curr page no 
xor AX, AX ;set AX to zero “ 

cmp AL, curr_s€ctcr_nc ;is it sector 0 ? 
jz Store oage ;if so, no translation 

xor CX,CX"‘ ;ciear CX for counter 

mov CL,curr_sectcr_nc ;cntr for translate loop 
Add skew; ~ 



add AX, MB skew 
c X c 

sbb AX, MB maxnages 
jae Dec sector 
add AX,EB maxpages 
Cec_sector; ” 

loop Add skew 
Stcre_page: “ 

mov curr page no, AX 
ret ~ ~ 



;# of pages berween sectors 
;clear carry 
;mod tc # of pages 
;jump if positive (CF=0) 

;went neg, add back i pages 

;dec sector #, add skew again 

;store page number 



A :i|( ^ ^ 9tc # # # A :|c :|Mlc ic i|t :|c :|c 9|i :|e :4c 3|e :|c sfc 3le 3|c :|e :|n|e 3|e :4i a|c ^ :|e 

* CRLF subroutine * 

ic ; 4 i : 4 i ^ 34 e : 4 c * 3 fc :«c 3 k : 4 n^ : 4 c * : 4 e : 4 c 3 le :|t 34 e i 4 c # 34 k : 4 ^ : 4 c : 4 ( : 4 c :|i : 4 c 3 |n 4 c : 4 c : 4 e :k : 4 c :|c : 4 c 34 k : 4 c # 3 |t : 4 c : 4 c : 4 c : 4 c : 4 t’ :k : 4 c 

;called from: Close Dp, Get Cent Addr, 

;End Pass,Init Cont7Main,PrInt_Sfr ing, Set Up. 
Crlf: ;** sends carriage return, line feed to cons 

;** parm in - none 
parm out - none 

mov AL.cr ;carriage return char 

call Putchar ;write it to console 

mov AL,lf ;line feed char 

call Putchar ;write it to console 

ret 



: 4 c 3|i3lc:k:ie:4c:ic:4crkMk : 4 c :4c34c:k3k:4c:4e3k:4r:4c9k:4c:4c:4c34c3k34(:4c34c4c34i3le:4c:4c : 4 c : 4 ii 4 e 34c : 4 c : 4 c : 4 c : 4 c : 4 c : 4 c 34c : 4 c 34 c : 4 c 3fc:|( : 4 c : 4 c : 4 c : 4 c 34 c : 4 c 

* END PASS subroutine ♦ 

:<c A :k * -k * lie 3, A :k « ak * 7 41 * * « 41 :* * :4c « « * « « * * 4 c * « * # Wi # V « * » * « * * 



End 



Pass : 



;convert 

mov 

call 

mov 

mov 

inc 

mov 

mov 

call 

call 

;inc pass 
me 
mov 
mov 
mov 
mov 
ret 



;called from: Main. 

;♦* performs end of pass housekeeping 
;** parm in - none 

;** parm out - none, effects global vars 
pass 4 to Ascii and print after pass message 
AL,pass no ;pass number to accum 

Hex_To Iscii ;convert to Ascii 

3X, offset msg d pass;addr of pass # in msg 
byte ptr [BXjTdH ;load high byte tc msg 
Bx ;bump to next position in msg 

byte ptr [3X],DL ;load low byte to msg 
DX, offset msg_dcnepass ;addr of done pass msg 
Print String ;write msg to console 

Crlf fSkip a line 

number and reset ala variables for new pass 
pass_no ;add one to pass number 

newpass flag.l ;set new-pass flag on 

curr bu5 no,0 ;reset to bubble aevice 0 

curr“secfcr_no,0 rreset sector number to 0 
errpt r , offset errlog ; reset addr of error log 



t 
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;* ERR OUT subroutine * 

;callsd from: Check_Errors. 

Err Out: issue an error message to the console 

~ ;** parm in - EX addr in buff of byte error 

;♦* parm out - none, effects global vars 

‘ ’ ;save addr of error twice 

;is this a new pass ? 

;if not, print error now 

^ , , ;t urn flag off 

mov DX, offset msg header ;load addr of header 
call Print String ” ;print the header 
; put zeros into all error counts in the log 



push BX ! push BX 
cmp ne wpass_f lag , 1 
inz Prt_err“ 
mov newpass flag,0 



Clr log: 



mov CX,MB maxdevs+1 ;count for # of dev to loop 
mov BX, offset errlog ;addr of error log 

mov byte ptr [BX],0 ;clear log entry error count 
inc BX ;bump pointer to next entry 



Ert er: 



loop Clr_log 



;bump pointer to next entry 
;dec cx and loop if not zero 



mov AL,curr bub no 
call Hex To Iscil 
mov msg”e 3ev,DH 
mov msg~e"dev>1 , CL 



;bub dev # to accum 
;convert to Ascii 
;move in high byte to msg 
;move in low byte to msg 
;load page number of error 

mov AL,byte otr curr_page no+1;hi byte of page# 
call Hex To Ascii ;convirt to Ascii 
mov msg“e page,CH ;high byte to msg(dig 1) 
mov msg~e~page+ 1 ,DL ;low byte to msg (dig 1) 
mov AL,'5y^e ptr curr_page_no ; lo byte of page# 
call Hex To Ascii ;ccnvert to Ascii 
mov msg“e_page+ 2 ,DH ;high byte to msg (dig 2) 
mov msg_e page+3,DL :low byte to msg (dig 2) 
;comput€ and load byte offset or error in page 

pop BX ;restore addr err byte offset 

addr_buff egu offset test_buffer ;fcr computation 
sub BX,addr_buff ;compute err offset in buff 

** ;offset to AL for conversion 

;convert to Ascii 

, . ;mcve in high byte to msg 

mov msg e“byte+1,DL ;move in low byte to msg 
;load pattern that was written and what was read back 
mov AL, pattern ;load pattern just written 

call Hex_To_Ascii ;ccnvert to Ascii 

mov msg_e wrote, CH ;move in high byte to msg 

mov msg_s“wrcte+ 1 , DL ;move in low byte to msg 
pop BX ” ;restore addr cf err offset 

mov AL,[BX] ;lcad byte just read back 

call Hex To_Ascii ;convert to Ascii 

mov msg~e read,DH ;mcve in high byte to msg 

mov msg”e~read+ 1 ,DL ;move in low byte to msg 

mov DX, offset msg_err ;addr of roral error msg 
call Frint_String ;print the error message 



mov AL,3L 
call Hex_To Ascii 
mov msg_e ‘5yte,DH 



• « :di :k9k T«I « # aK A * 3k :4c * ^ ## 4c 3|C ^ 3(1 « 3|I 

;* ERROR SOHMAEY subroutine * 

;called from: Main. 

Errcr_Summary : ;** outputs summary of errors on each device 

parm in - none 
.A* harm out - none 

mov DX, offset msg_summary ;addr of summary msg 
call Print String ;write msg to console 
;sraD thru erricg-convert to Ascii - print err counts 
mov CX,MB maxdevs+1 ;ccunt for loop - I of devs 
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mcv 

mov 



prt loop: 

“ .nov 
pash 
call 



pop 

taov 

inc 

mo V 

inc 

mov 

inc 

inc 

loop 

mov 

call 

ret 



3X, offset errlog ;addr of error log 

DI, offset msg_counts jaddr of msg sum counts 

AL,[3X1 i3®t count from error log 

BXipusK CX! push DI ;save addr, counter, index 
aex_To Ascii ;convert to Ascii 
DI! pop CX! pop BX ;rest index .counter ,addr 
byte ptr [DI],dH ;load high byte tc msg 
DI ;bump to next pos in msg 

byte ptr (DI],DL ;load low byte to msg 
Di ;bump to next pos in msg 

byte ptr [DI], blank ;Ascii blank tg msg 
Dl ;bump to next pos in msg 

BX ;increment buff addr to next 

prt loop ;dec CX and loop if not zero 

DX, offset msg_ccunts ;addr of msg sum counts 
Print String ;write msg to console 



^:t‘**********if*******************-****^******-f *************** 

* GET CONT ADDR subroutine ♦ 

A 3fi ♦ a*c ap # ^ ajs * a|E ♦ a|t ♦ ♦ a|t a|t 

;callad from; Main. 

gets base segment address for the MB3-80 
;** controller from the user at the console, 
parm in - none 

;** parm cut - none, updates MB_contbase 
DX, offset msg_getaddr ;addr of get cont msg 
__ Print_String ;write msg to console 
;get base address keyed in by the user 

mov CL, Bdos_conbuf ;input console string func# 
BX, offset ccns buff ;area for cons input 
byte ptr[ BX 3,contuf_size ;tell Bdos size 

;load parm for Bdos call 



Get Cont Addr; 



mov 

call 



mov 
mov 
mov 
call 
call 
;make sure 
mov BX 



dI^BX' 

Bdos 
Crlf 

only four die 
offset ccns 1 



emp 

ine 



by^e ptr[ BX ] ,4' 
Error_input 



;read from console 
;skip a line after input 
Its keyed in 
uff+1 ;byte 1 tells how 
;see if exactly feur read 
if net 4, error 



many 



make sure all feur digits are valid hex 



mov BX, offset 
xor AX, AX 
mov CX,4 
Check valid; 



ccns 



mov 
emp 
ib 
emp 
la 
emp 
ibe 
emp 
■jae 
imps 
Valid_hex: 
sub 
push 
mov 
mov 
pop 
mov 
inc 
loop 



AL,f BX 1 
AL,U30H 
Error input 
AL,045H 
Error input 
AL, 033H 
Valid hex 
AL,041H 
Valid_hex 
Error_input 



buff+2 ;byte 2 starts data 
; used for Ascii table index 
; number of digits to check 

;move digit tc AL for chking 
; check to see if tco low 



; check to see if 
;chk mid-invalid 



too high 
(3aH-40H) 



it is in rhe middle - error 



AX, 

BX 

BX, AX 



030H 



;-30H to ger table index 
;save buffer addr 

;AX is index to table 

AL, Ascii table[BXj ; table look up 
BX “ ; restore buffer addr 

byte ptr[BX],AL ; store hex back in buffer 

BX ;next digir 

Check valid ; go check it 

;conveft 4 valid hex digits to a binary number in AX 
mov BX, offset ccns cuff+2 :byte 2 starts data 
mov AH,[3X] ~ ; get first digit 
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aov CL, 4 
shl AH, CL 
inc BX 
or AH,rBX] 
inc 3X 
mov AL,C3X] 
mov CL, 4 
shl AL,CL 
inc EX 
or AL,[BX1 
;store controller base 
mov MB contbase,AX 
jraps Ger_cont ret 
.•error in input, "issue 
Error_input: 

mov DX, offset nisg_ 
call Print String 
call crlf ■ 
jmps Get Cont Addr 
Get_coni_ret " 
ret 



; shift it to high nibble 

•.increment index 

;2nd dig or'ed into low nibb 

; increment index 

;get third digit 

; shift it to High nibble 

; increment index 
:4th dig or'ed into low nibb 
address that was built in AX 

; go return 
message, retry 

errinp ;addr of error message 
; write msg to console 
;sicip a line 
; go ask again 



ic 9|t A A 9k 9k ^ :4c tit 

* GET TEST B 

Jt « )4i # « « V « * « A :<i « « 3k * 9 3k * « * 9 « 

; called fr 
Get_Test_Buf f er : ; ** increm 

parm i 
parm o 
attern 
L, pattern 
CX, MB bufle 



inc 

mov 

mov 

mov 

mov 

inc 

loop 

ret 



BX. offset t 

^b5],al 

Fill 



« 3k !4 c « Wc * « :(t !<C « 4c 3k 3k 3(e * 3d # :<c 4c * * * WC « 3k « * :4c :(> 3k 

OFFER subroutine ♦ 

4 4< 3k 3k 3k 3k 3k 4> 3k 3k 3k 3k 3k 3k 3k3k« 3k 3k 3kV 3k 3k 3k 3k 3k 3k 3k 3k 4t 3k 3k 4e 3k 

cm: Main. 

ents pattern and loads test buffer 
n - none 

ut - none, effects global vars 
;add one (1) to pattern 
;pattern to accum for manipul 
n ;loop counter - size of buff 
est buffer ;set index into buffer 
" ; load a byte 
;bump index 

;dec CX, loop if not zero 



k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3* 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 4C 3k 3k 3k 3k !k 3k 3k3k 3k 3k 3k 

HEX TO ASCII subroutine ♦ 

3* 3k 3k 3k 3k 3k 3k3k 3k 3k >k 3k 3k 3k 3k*3k V3k 3kX3k 3k 3k 3k 3k 3k 3k 3k 4c 3k 3k 3k 3k 3k 3k 3k 3k 3k 3K 3k 3k 3k 3k3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 

;called from: End_Pass.Err Out ,Error_Summar y . 
;** converts a hex number fo its hex Ascii 
;*3k parm in - AL has hex byte to convert 
;** parm cut - DX contains hiSlo Ascii bytes 
low nibble of AL to Ascii hex digit 



Hex To Ascii 



;convert 

mov 

and 

add 

daa 

adc 

daa 

mov 

; convert 
mov 
mov 
shr 
add 
daa 
adc 
daa 
mov 
ret 



AH, AL 
AL,0f H 
AL, 90H 

AL, 40H 

Di. , AL 

high nibble 
AL, AH 
CL, 4 
AL,CL 
AL,90H 

AL,40H 

DH, AL 



;save hex # for hi nibble 
;clear high 4 bits lo nibble 
;handles 0-9 (90H+40H=130H) 
;dacimal adjust 
jhandle a-ffl (41H-46H Ascii) 

; decimal adjust 
;lcw nibble Ascii for ret 
of AL to Ascii hex digit 

;mcve to AL for daa ops 

;set count for shr 4 

jshift hi nibble to lo nibble 

;handles 0-9 (90H+40H=130H) 

;decimal adjust 

;handle a-ffl (41H-46H Ascii) 

;decimal adjust 

;high nibble Ascii for ret 
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. -fc 5(1 ♦♦A**** ♦ liJk *:)t^**)k** ♦*:»♦***** **:>:* »♦♦*#♦*»**♦♦ ********* 

;* I NIT CONT subroutine * 

* * 5# :*«**» 5(c5(Ei|e 4c «**4t****^** ****************************** ******* 

;called from: Main. 

Init Cont; inits the MEE controller and each device 

"" ;** parm in - ncne 

.** parm out - none 

mov DX, offset insg_initbeqin ; begin init msg addr 
call Print String ;write msg to console 
; initialize page size and miner loop size 

mov AX/ MB contbase ;address or controller base 
mov ES/AX" ;load ES to address bubble 

mov AX/MB maxpages ;pages per bubble device 
mov ES:P Ioopsize_lo /AL ;loopsize low byte 
mov ES : P~loopsize_hi ,AH ;loopsize hi byre 
mov ES : P2pagesi2e_red/ MB_pagesize; page size reg 
; issue reset command to the controller 

mov AL/MB reset_cmd ;reset mask byte 
mov ES;P Smnd reO/AL ; issue reset command 
;initialize each bubble device 

mov CX/SB maxdevs+1 ;count for loop-*# of devices 
mov AL/O “ ;device # to initialize 

Fcr_each; 

mov ES:P select bubdeV/AL ;select each device 
mov EStP^emnd reg, MB init_cmd ;init this device 
push AX!push c!f! push Is ; save bubble #, counter, ES 
call Wait jwait for controller to work 

pop ES! pop CXI pop Ax ;restore ES ,cntr, bubble # 
inc AL ;next device number 

loop For each ;dec CX, loop if not zero 

;issue msgs Indicating init done and test in progress 
mov dX, offset msg_initend ;init done message addr 
call Print^String ;write msg to console 
call Crlf ;3kip an extra line 

mov DX, offset msg_testing ;testing message addr 
call Print_String ;write msg to console 
r * 



^ 9|t 3ft 3k :|c 4c * 3ie 3^ ^ :|c 9$C 9^ ^ 4c :|e 4c 9|t 3k * 3^ 4 k * 9k :1c # 

■* LOG EEBOH subroutine ♦ 

********** ********9r****** *********************** *********** 

;called from; Check_Errors. 

;** leg the error for use in pass printout 
;** parm in - ncne 

;** parm out - none, effects global vars 
BX,errptr ;addr of error log to BX 



Lcg_Error; 



mov 
inc 
1 nz 
dec 

(3cne_log: 

ret 



byte ptr [ BX ] 
done log 
byte ptr [BX] 



;add one to error count 
;if not overflow, all done 
;inc too big, reduce to max 



!* 4>3k4c4e4^4c9k9k4t3k4c3k4c4tak4c3fe 9k4c4c4c4c4c 3k4c3fc3|(4c4c3ft 4c4c4c3^4c4c4c4c4c3|c4c3k 4c4c4c4c4c3|c4c4c3fc4c3k4c4c4e4c 

PRINT STRING subroutine * 

*******************at**** *********************** *********** 

called from; Close Up, End Pass, Err Out, 
Error Summary, Get Cont Addr, Init Cont, 
Main, Set Up. ” “ 

** prints luffer addressed until hit 

** parm in - address of buffer in DX 
parm cut - ncne 

CL, Bdos_pstring ;f unction # for Bdes call 
Bdos ;call Bdos and print 

Crlf ;skip a line 



Print_String; 



mov 

call 

call 

ret 
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. ♦♦♦♦**♦♦♦*#*♦* ♦* 

;•* PUTCHAR sutroutine * 

. «:»4t:^*:|c^:4c9|c**«3k3k:4c;4c^*3«**4(:t!3k4ia|<^4<4[**4i4i4i4i^4i*:4c3i(^«*4<:^^#*4i3|'**>ti:4t*:4c«4E3|i 

;called from; Crlf. 

Futchar: ;** writes character from AL to console 

;♦* parm in - output char in AL 
:** parm out - none 

mov CL,Baos conout ;function# for Bdos call 
mov DL,AL ~ ;load char to Edos reg 

call Bdos ;call Bdos and send 

ret 



: -k 4 «:«(:(<* 3H *:<( :«c **** * 3k :4c :<t :4c » ** « ]k :4c :4c4c 4^ 3|t :4c * :4c :(c :«c # :4c :4c 4< * ** * 

;* READ SECTOR subroutine ♦ 

. -Ir4:4t4c#:*:4<:4c:4c**:k*3k:k*3|c:k*¥*:4c#*4c:4>4c«4c:|c:4i4c«4c:|c:4c:4c:4c:4c*:(c*4c4c:4c*4c:^*:^:4c:4c»:4c:4<*:«:k:4c 

;called from: Main. 

Read_Sector; ;** reads sector into test buffer from bubble 

;** parm in - none 

:** parm out - none, effects global vars 
call Compute Pageno ;compute 1st page# of sector 
.•establish addressability to controller 

mov AX,MB_contbase ;address of controller base 
mov ES,AX ;load ES to address bubble 

;set fflultipage mode 

mov E5:P_cmnd reg, MB multi_page ;multipage mode 
;load first page ndmber fdr transfer 

mov AX,curr page_no jcurrent page number testing 
mov ES:P pagesel lo,AL ; page select lo byte 
mov ES: P”pagesel~hi, AH ; page select hi byte 
;set number of pages fo transfer = pages/sector 

mov ES:P pagecnt_lo,MB pages sec ;# pages to xfer 
mov ES:P~pagecnt hi,0 Thi byfe of # is zero 
;set up buffer to receive data 

mov CX,MB buflen ;count for loop-buffer size 
mov BX, offset test_buffer ;set index into buffer 
;select bubble device and issue read command 

mov AL,curr bub no ;current bubble # testing 
mov ES:P select^bubdev ,AL ;select current dev # 
mov ES:P~cmnd reg, MB_r ead_cmd ;read from FIFO 
;wair for interrupf from controller 
Eead_int : 

IF v€ctored_int 

cmp interrupt flag,0 ;will be set by int handler 
•jz Read_int ~ ;if zero, keep checking 

mov interrupt flag,0 ; reset interrupt flag 
ENDIF ; vectcred~int 



IF not vectored int 
mov AL,ES:P inf flag 
and AL.MB clkinf_mask 
1z Read_int 

ENDIF ;not vectored int 
;read from MBB FIFO buffer 
mov AL,ES:P rdata reg 
mov fBX],AL ~ 

inc BX 
loop Read int 
push ES ~ 
call Wait 
pop ES 
mov SS:P_cmnd reg, MB 
ret: * "" 



get interrupt status 
has interrupt been set? 
' not, keep checking 



if 



into test buffer 
;read a byte into accum 
load accum into buffer 
increment index 
dec CX, loop if not zero 
save ES 

wait for controller to stop 
restore ES 

int inhibit ; clear cont int 
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•* SET OP subroutine ♦ 

;called from; Main. 

S9t_0p: ;** inits variables and issues signen msg 

;** parm in - none 

;** parm out - none, effects global vars 
call Crlf ;skip an extra line 

call Crlf ;skip an extra line 

mov DX, offset ni£g_signon ;signon message address 
call Print String ;wpite msg to console 
mov DX, offset msg_v6rsion ;version msg address 
call Print string ;write msg to console 
call Crlf “ ;skip an extra line 

;initializ9 all variables and flags 

mov newoass flag.l ;set flag indicating new pass 
curf_buB no,0 ;current bubble # tc 0 
curr_sec^or no,0 {current sector # to 0 
pattern,! ~ {initial test pattern is 1 
pass no, 1 {initial pass # is 1 

errpCr ,of fset errlcg {addr of error log 
MB interrupt vector aadress in CP/M low memory 



mov 
mov 
mov 
mov 
mov 
{ load 



push 
mov 
mov 
mov 
mov 
pop 

{set up 
mov 
out 
sti 
ret 



US ‘ {Save this pgm's DS 

AX,0 {lowest memory 

DS,AX {make it addressable 

MB int segment, CS {int vector CS is pgm 



CS 



MB3int"cf fset, of fset Trap_Handler : trap handlr 
DS ~ {restore this pgm's DS 

8259a PIC tc recognize interrupt from MBB-80 
AL,MB int mask {mask to enable MB interrupt 
PICpiTAL ” {send mask to 8259a - 0WC1 



* TRAP HANDLER subroutine ♦ 

-« :|i 3|| # ale :|c :|e # 3|c afe a|e :|c :|c :|t ale :* :|c 1|C :|e all :|e a|e 9|e 9|c 3|e 3|c 9|e 3|c 3|e 3|e3|e 3|e :|e :|e :|e :|c 3|c 3|e3|e :|e :|e :|c :|c 9|S :|e 3|e 4c 3|c:|c 9|( :|c 9|C 

{called from: Vectored to from CP/M interrupt 
Trap_Handler : {♦* sets the interrupt flag semaphore to one 

{** parm in - nene 
;** parm out - none 

mov interrupt_f lag, 1 {set the interrupt flag on 
iret {return from interrupt 

3k ^ 4c 4c * ** 4c ^ 4c * 4c * » :<C 3k 4t « « 3k ]|c ^ 3|c :|C :|nti 

* WAIT subroutine * 

3k 4 3k 4c 4c 4c 4c 4C 4c * 3k 4C 4c 4c 4c 4c 3k 3k 4c 4c 4c 4C 4c 4c 4c 4C 4C 4C 4C 4c 3k 4c 4c 4c 4c 4C 4c4c 4C 4C kc 4C 4c 4C 4C 4c 4c 4c 4C 3k 4C 4c 4> 4< 3k 4C 4c 4c 4c 

{called from: Init_Cont, Read_Sectcr, 

{ Write Sector. 

Wait: {=''* checks status of MBB controller for busy 

keeps checking (wait) until not busy 
{** oarm in - none 
:** harm out - none 

Ax, MB_contbase {address of controller base 
ES,AX {load ES to address bubble 



mov 

mov 

See_zero; 

mov 

and 

j2 

Ccnt_busy : 
mov 
and 
jnz 

r* 



AL, ES : P_status reg {get status register 
AL, MB_busy_check {is it all zeros ? 



See zero 



{If so, keep checking for one 



AL, ES : P_status_reg {get status register 
AL,MB busy_check ;see if busy, and to mask 
Cont_fusy* {if busy, check again 
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)t* * ^ 



:ii ^ ^ * :* # :^ * * 9k :|c ak 3k ^ afc ^ ^ >fe ^ j|c :|c 3|c:«c :|e :|c 4c 3^ X 3|e :fc:4c 

=* WRITE SECTOR subroutine 

4c4ca^ak4ca^a^a^4c:^ *4t4cak4caKak4c4c4ca[|ca^aet4t4c4cale4ca^a|(4K3«e 4^4t 4ca|t4c4caic4;4c4t a^aie aka|e:ic 4t :«3^ak4c 3*ca|e4(4c 34c4c 

;called frocc: Main. 

Write_Sector ; ;** writes sector from test_buf£er to bubble 

;** parm in - none 
:** parm cut - none 

call compute_Pageno ;compute 1st page# of sector 
;establish aadressability to ccntroller 

mo7 AX, MB contbase ;address of controller base 
mov ES,AX" ;load ES to address bubble 

;set multipage mode 

mov ES : P_cmnd_reg, MB_multi_page ;multipage mode 
;load first page number for transrer 

mov AX,curr_page no jcurrent page number testing 
mov SS:P pagesel“lo, AL ; page select lo byte 
mov ES:P“pagesel hi, AH ; page select hi byte 
;set number of pages fo transrer = pages/sector 

mov SS:P_pagecnt lo,MB_Dages sec ;# pages to xfer 
mov ES: P_pagecnt“hi, 0 ;hi byfe of # is zero 
;set up buffer to send data 

mov CX,MB buflen-1 ;ccunt for loop-buffer size 
mov BX, offset test_buffer ;set index into buffer 
;select bubole device and issue write cmd 

mov AL,curr bub_no ;current bubble # testing 
mov ES;P select_bubdev , AL tselect current dev # 
mov AL,f5X] jload first byte 

mov ES:p_wdata reg,AL ;write a byte to FIFO buff 
inc BX ~ ;increment index 

mov ES:P cmnd_reg,MB write cmd ; write FIFO buff 
;wait for interrupt from cbntrcller 
Write int; 



IF vectored_int 

cop interrupt_flag,0 ;will be set by int handler 
jz Hrite_int ;if zero, keep checking 

mov interrupt_f lag ,0 ; reset interrupt flag 
ENDIF ; vectored_int 

IF not vectored_int 
mov AL, ES; P_int_f lag 



and AL.MB cfkinf mask 
iz Write_int 
ENDIF ;not vectored ini 



; get interrupt status 
; nas interrupt been set? 
;if not, keep checking 



;write into 
mov 
mov 
inc 
loop 
push 
call 
pop 
mov 
ret 



MBB FIFO buffer from test buffer 
AL,CBXj ;byte from buffer to accum 

ES : P_waata_r eg , AL ;write a byte to FIFO buff 
BX ;increment index 

Write_int ;dec CX, loop if net zero 

ES ;sav€ ES 

Wait ;wait for controller to stop 

ES ;restore ES 

ES : P_cmnd_reg, MB int_inhibit ; clear cont int 



4i ak 4c 4r X 4e 4c 3^ 3k 4c 4c 4c tk 4c 4e 4e 4c 4c 4t alt 4c 4c 3lc 4( 4c 4c 9^ 3^ 3k 4c 4( 4c 4( 4c 4c 4t 4c 4c 3fc 4c 4i 4e 4C 4c 4c 3fc 4c 4e 4e 4c 3« 3^ 

DATA SEGMENT AREA ♦ 

:|i :|c * 9k :(i 3k 3k * 3k 3ic 4 e 4c * ^ 9k 4c 3|c 4 3* * « « * :|C 4 4t 9*1 ^ 



DSEG 



*4i 

Ascii table 



org 0100H ;leave room for base page 

Variables 



db OOH,01H,02H,03H,04H,05H,06H,07H,08H,09H 
rb 7 ;for Ascii 3aH to 40H - invalid 
db 0aH,0bH,0cH,0dH,0eH,0fH 
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coDS_buff rb 
curr_bub_no rb 
curr_paqe_no rw 
curr_sector_no rb 
errlcg ~ rb 
errptr rw 
inr€rrupt_f lag db 
MB_contDase dw 
n6wpass_flag rb 
pass_no rb 
pattern rb 
test buffer rb 



conbuf size ;area for cons string input 
1 ~ ; bubble device # 0-7 testing 

1 ; bubble page # testing 

1 ; bubble log sector # testing 

MB_maxdevs+ 1 ;table tor dev error count 



1 
0 

OOOOH 

1 

1 

1 

MB buflen 



pointer to errlog - index 
int flag - semaphore , from MBB 
base segment addr for MBB-80 
flag for indicating new pass 
pass number 
test pattern 

buffer to hold test data 






string data area for console messages 



msg_ccun ts 

msg_donebub 

msg_donepass 

Bsg_d_pass 

msg_endtest 

msg err 
niig_e_dev 

iDsg_e_pag9 

msg_e_by te 

msg_e_wrote 

msg_e_read 

msg_errinp 

msg_getaddr 



msg_header 
msg initbegin 
msq~initend 
msc_signon 

msg_summary 

msg_testing 

msg_version 



rb 

db 

db 

db 

rb 

db 

db 

db 

db 

rb 

db 

rb 

db 

rb 

db 

rb 

db 

rb 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

IP 

db 

db 



( 



MB_maxdevs+ 1) *3) 



1 ^ 

Done with a bubble. $• 

•Done with PASS ' 

2 

* $ * 

•*0ser terminates testing...* 

•returning to CP/MIS* 

II 

2 

I I 

4 

1 I 

2 

1 I 

2 

7 I 

2 

• $t 

•*'<'ESB0B: net exactly 4 digits 

• or invalid hex digits! !$* 
cr,lf,*Key in 4 digit segment base 
•ess for mbb- 80 controller. •, cr, If 
•Must te in hex (4 digits, then CB only) 

•Bubble Page Byte Wrote Beads* 
cr,lf, *Initiali 2 ing the controller ... S • 
•Controller is initialized. $ • 

I I 

•*♦ MBE-80 CP/M-86 DIAGNOSTIC TEST ♦♦$• 
•Total errors for each device (0-7);$* 
•Testing. .. Hit any char (S CB!) • 

•to stop after this pass.S* 



entered , • 
addr • 



•Multi-Page Mode 
vectored int 

I — 



Version 1.0*,cr,lf 



' Vectored InterruptsS* 

ENDIF ; vector ed_int 
IF not vectored int 
db • “ • 

db • Polled InterruptsS* 

ENDIF ;not vectored int 

db 0 ;GENCHD to fill last address 



A # * «:4nk 4c 4c ^ X A * 

ESEG 



end of variables 4c*4c4e4c4c*4c4c4t4i4c4c*j|t4c4t4i4i4t4t*4e4c 
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:<c :^c X 3|c ♦ S)t :ic ^ a# 3|t ♦ :4s ^ :|c ♦ a|t ai: ♦ ** Jic Jit 3|c ^ jjc 

* aBB-80 CONTHOLLEH AND PORTS ♦ 

* a|t 4; lit * ♦ Jit :4c * ss« 3k ♦ 3ie :|t 3it 3k a}c :4r Jit it * j45 j4c 54 j|i Ik jfc ai* A Jit Jir :4t 3ic jij 24t :4t Jit ♦ apt ♦ ♦ Jit * ♦ Jit ♦ 3|t :k i|t :4c ♦ ♦ Jit ac ♦ * 



^_pagesel_lo rb 1 

P pagesel_hi rb 1 

P"cDDd_reg rb 1 

P rdata_reg rb 1 

P“wdata_reg rb 1 

P_status reg rb 1 

P_pagecn^_lo rb 1 

P_cag6cnt_hi rb 1 

P_lccFsize_lo rb 1 

P loopsize hi rb 1 

r w 1 

P_pag€size_r€g rb 1 

rw 1 

P_select_bubdev rb 1 

P int flag ■agu P select 

end of Controller 



;ls byte for page select, (0) 
;ais 2 bits for page select, (1) 
;comiDand register, (2) 

;read data register, (3) 

; write data register, (U) 
;status register, (5) 

;ls byte for page counter, (6;i 
; ms 2 bits for page enter, (7 1 
;ls byte for minor loop sz, (81 
; ms 2 bits for min Icop sz, (9 
;internal use (page pcsj , (A,Bi 
;page size register, (C) 

;TI use only, (D,E) 

;two uses: sel bubble dev (F) 
bubdev ; interrupt flag (F) 
and Port definitions **^*^**** 



* « Jtc 4c A 4t * 41 * 4t :(c * :|i 

* DOMHY DATA SECTION * 

* Jinii Jit j|t Jit Jit jicjk j|t :it 3k a|c 3it j|c Jit * Jit Jit Jit ♦ Jit Jit j|t ♦ * ♦ Jit ♦ ♦ 5^ ♦ # j|t jk ail #3ic Jit ♦ Jit Jit Jit :|t j|t Jit 5^ Jit ♦ Jit ♦ Jk Jit Jit a|t Jit 3|c 



DSEG 0 

org 0 

rw 

MB int_offset rw 
MB“int_segmen t rw 



;absolute low memory 
;start CP/M interrupt vectors 
:pad to int type for MBB 
2* (MB int type) 

1 “ “;addr cf int vector offset 

1 ;addr of int vector segment 



Jk jk jk jk Jk Jkak akalc 3 k ak ak Jk jk Jkak Jk Jk ak sk Jk ak ak ak ak Jk 3 |r Jk ak ak ak ak akak ak ak aitak j|e ak skak ak ak akak ak ak ak J|taic ak ak akJiC 3 k ak ak ak 

■* End cf Program DIAG86M ♦ 

4t A 4< 4t * cfe 4< * * * ’fc * * 4c 4t » * » 1* « ^ 14c 3* !tc 3^ * 30 * * * 3<c =0 3* 4c4c 4c « 4c * 4e 4c 4c 4c * 4c 4> 3k 4c 4t 4C 4c cic 4c 4c X 



END 
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APPENDIX D 



PROGBAE LISTING OF EB80FHT.A86 



FILPNAMSS: Pascal = MB.ME80FMT.TEXT 
CP/M = HB80FMI.CMD 

8086 FORMAT PROGRAM FOB PC/M MBB-80 BUBBLE MEMORIES ^ 



CONFIGURATION: 

HOST - Intel 86/12A SEC, 20 address lines, MDS system. 
Data bus on 86/12A converting to low 8 bits 
all high. 

MBB - Interrupts disabled by disconnecting the inter- 
rupt jumper on the MBfi board. Multi-page mode. 

This program writes a formatting code {OeSH) into every 
byte in the bubble devices. This code is for standard 
IBM compatible disks. 

The MBB-80 controller base address is read into variable 
*MB cpntbase' . MBB-§0 address select pins must correspond 
to "this address. This program uses memory mapped I/O 
through the base address. 

Jeffrey Neufeld and Michael Hicklin, CS-03, Thesis * 

« ^ * ;4t 4c 3(c * :(c itc 3k * * * * 3# * * ^ 4> 4c 4c 3«c :|i # 9 4c # 4c * * V :([ 4c # 4< V ^ 4c # 4c a|> 3|> * * * 3* >tt # * # 4c # # # ¥ ♦ 



:* Bdos function numbers 
Bdcs_conbuf equ 10 

Bdcs conout equ 2 

Bdcs^pstring equ 9 

Edcs_reset equ 0 



for calls 

;conscle string input function # 
;console output char function # 
;print string until function # 

;CP/M-86 reset to CCP function # 



;* MBB characteristics * 
MB buflen equ 144 

MB'maxdevs equ 7 

MB“maxpages equ 641 

MB” maxsectors equ 80 

MB_pages sec equ 8 

MB paqesize equ 18 

MB”skew equ 12 



buffer length for sector 
bubble devices are #0- #7 

# of pages on each bubble device 

# of log sectors on each bub dev 

# of pages per logical sector 
bubble device page size 

skew for page translation 



MBB command 
ME busy_check 
ME"init cmd 
MB int_Inhibit 
MB“chkint_mask 
MB”multi page 
MB”read cmd 
ME resef_cmd 
MB” write cmd 



masks and statu 
equ 00100000E 
0000000 IB 
10000000B 
10000000E 
00010000E 
00010010E 
01000000E 
00010100E 



equ 

equ 

equ 

equ 

equ 

equ 

equ 



s masks * 

cont busy? status check (20H) 
init the controller (01H) 
int inhibit/reset mask (80H) 
mask testing if int set {80 h 
multi-page mode command (10H! 
multi-page read command i12H 
reset the controller (40H) 
multi-page write command (14H) 



;* Miscellaneous equates ♦ 
conbuf_size equ 80 

or equ OdH 

format pattern equ OeSH 

If equ OaH 



;size of console input buffer 
;Ascii carriage return cent char 
;format pattern for every byte 
; Ascii line feed control char 
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•* MAIN PHOGBAM - CRIVER * 

. Aid:4c:k*:tc:^:k*:iicic;tE4i34c;4i#»*:(C]|c:(c3tE:4c«4(:^:ii:((:<c4':4c:tc:4(:4^i4c:t(«j|c:H:(t^^«#:tE:|c:(E:(c:|Eik:lc:|i:(c4i4t4c:|i:4c* 



CSEG 

MB80FHT; call 
call 
call 

Fermat loop: 
call 
;advanc9 
inc 
emp 
■jnz 

;was las 
mov 
call 
emp 
12 

;prepare 

inc 

mov 

Imp 

Eene format: 
call 
mov 
mov 
call 



Set Op 

Get_Ccnt_Addr 
Inir Cont 



;do initialization 

;get address of MBB-80 base 

;init the cont and devices 



Write_3ector 
to next sec 
curr sector. 
curr~sector 
Format loop” 
t sector, adv 
DX, offset ms 
Print string 
curr 'Bub_no, 
Done“format 
to format n 
curr bub no 
curr^seef or_ 
Format loop 



;write a sector to bubble 
tor in device. see if last sector 
no ;increment current sector # 
no, MB maxsectors ; last sector ? 

;if not. foraaz next sector 
ance te next bub dev on board 
g donedev ;addr of done dev msg 
“ ;write msg to console 
MB.maxdevs ;last bubble on board? 

:if sc, done wirh formatting 
ext bubble device 

;if net, increment device # 
no,0 ;set sector # back to zero 
;ge format next device 



Close Op 
CL,Bdos reset 
DL,0 
Bdos 



;do end of run housekeeping 
;function # for Bdos call 
;paraaeter to release memory 
;call Bdos to terminate prog 



^ ™ — — — ^ ^ - — — 

q£ Main Program *3<c:^3|c^*iic:|c*3*c:k*aie 



!«e ^ 3^ ie ic :«e * :«e * a|e :ic 3k « 3|c 3^ 3|t a|c 3K ^ 3|t ^ 9|ic a|c :4c 9|c 94 c 3|t :|e :4c :|c :i|c !fc ^ 3«e 

* BDOS (CP/M-86) subroutine ^ 

Ik 3 ^ 3|c:4cx*34e94c3k3k 3k34r3k^34(3|e3k3|c:k3k3k#ak3k34c:4r3k3k73|e:4e3k:4e3|e34c:4t3^3|c:*34c3|c:4c3k3|e 34e3k34c34c:4(34c34e3|u^3)c:4c3k:4c 3)e:ic 

;called from: Get Cont Addr, Main, 

; Print String, Putchar. 

Bdos: entry to Bdos via software interrupt 224 

;** parm in - caller loads regs as per reg 
:'** parm out - as supplied by Bdos returns 
int 224 ;8086 software interrupt 

ret 



j ;k34i34i!4c:4c:4c3ic:4c:4e34e:k34B34c34t3k3k34t3jc^3|c34(:k:4e^<4(34ta4(^:4(3vc34c94c34(3|c34t3|i:|(34c34c34c34c:4c34c4(3|c3ic3iC39C34t:4c34c34e:4c34(ic34i:4c^94c 

;* CLOSE OP subroutine * 

j ^:(n(«s*s3**>it**s(s*********^t^ 

;called from: Main. 

Clcse.Op: ;** issues goodbye 

;** parm in - none 
;** parm out - none 
;issue goodbye message 

call Crlf iskip extra line 

mov DX, offset msg.endf ormat ;addr done format msg 

call Print string ;write msg to console 

ret ” 
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¥ -n ¥ 



Cciipute_?ageno: 



A COMPOTE PAGENO subroutine * 

* :^ :% 4 * * * 4 c :* ><[ :<c * 4 t ak :^c * :ti :4c A :# :|cl^ 4i :4c 4 4c 4t 4c « « 4c 4c « 3ti alt 4c 3|c :|c * ^ * 4e * 34> 3|t 4c 4t * * ^ * 3«t 

;call3d from: Hrite_Sector . 

;*4c computes 1st page # for a given sector 
;** parra in - none, works on curr sector no 
;** parm out - ncne^ updates curr“page_no 
AX, AX ;set AX to zero ” 

AL , curr_sectcr_nc ;is it sector 0 ? 

Store page ;ii sc, no translation 

CX,CX“ ;clear CX for counter 

CL,curr_sector_nc ;cntr for translate loop 



xor 
cmp 

jz 
xor 
mov 

Add skew: 

add 
clc 
sbb 
jae 
add 

Cec sector: 

loop Add_skew 

Stcre_page: 

mov curr_page no, AX ;store page number 
ret ~ 



AX, MB_skew 

AX, MB maxpages 
Dec sector 
AX,T!B maxpages 



;# of pages between sectors 
;clear carry 
;mod to # or pages 
;jump if positive (CF=0) 

;went neg, add back i pages 

;dec sector #, add skew again 



♦*qic*** 3^ *3<ia|t***a*t** ♦♦♦♦♦♦♦♦♦♦♦♦♦ 

CRLP subroutine ♦ 

;called from: Close Op, Get_Cont_Addr, 

; Init_Cont, Main, Print_String. Set_Up. 

Crlf: ;** sends carriage return, line feed to cons 

;** parm in - none 
:** parm out - none 

mov AL.cr ;carriage return char 

call Putchar ;write it to console 

mov AL.lf ;line feed char 

call Putchar ;write it to console 

ret 



* :^4c*:k4c4c4c4c4c:cc4c4c4c4c4c4c4c4c4c4c4c4c4c4c4>4c4c4c4c4>4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 

* GET CONT ADDS subroutine ^ 

;called from: Main. 

i** gets base segment address for the MEB-80 



Get cont Addr: 



;** 
:4c 4c 



user at the console. 



controller from the 
parm in - none 
:** parm cut - none, updates MB_contbase 
mov DX, offset msg_getadar ;addr of get cont msg 
call Print String jwrite msg to console 
;get base address keyed in by the user 

mov CL, Edos_coniuf ;input console string func# 

mov BX. offset ccns buff ;area for cons input 
mov byte ptr [BX],conbuf size ;tell Bdcs size 
mov DX,BX ;load parm for Bdos call 

call Bdos ;read trom console 

call Crlf ;skip a line after input 

;make sure only four digits keyed in 

mov BX, offset ccns_cuff+1 ;byte 1 tells how many 
cmp byte ptr[BX],4 ;see if exactly four read 

ine Error input ; if net 4, error 

;make sure all four digits are valid hex 

mov BX, offset ccns_buff+2 ;byte 2 starts data 
xor AX, AX ;used for Ascii table index 

mov CX,4 ; number of digits to check 

Check_valid: 

mov ALffBXJ ;move digit to AL for chking 

cmp AL,030 h ;check to see if tco low 
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Error input 
AL,04^H 
Error input 
AL.039H 
Valid hex 
AL.041H 
Valid hex 
Error"input 



check to see if tco high 
chk mid-invalid (3aH-40H) 



It IS 



AX,030H 

BX 

BX,AX 



; -30H 
; save 
: AX 



in the middle - error 
index 



to 

buf 



jet 

:er 



table 

addr 

is index to table 
AL, Ascii table[BX] ; table look up 
BX “ ; restore buffer addr 

byte ptrfBXl/AL ;store hex back in buffer 
BX ;next digir 

Check valid ; go check it 

4 valid hex digits to a binary number in AX 
BX, offset ccns_Euf f+2 ^byte 2 starts data 



.BX] 



jb 
cmp 
la 
cmp 
j be 
cmp 
jae 
3 mps 
Valid hex: 
sub 
push 
mov 
mov 
pop 
mov 
inc 
loop 
; convert 
mov 
mov 
mov 
shl 
inc 
or 
inc 
mov 
mov 
shl 
inc 
or 

; store 
mov 

jmps _ 

; error in input,' 

Error input: 

mov DX, offset msg_errinp ;addr of error message 
call Print string ; write msg to console 

call Crlf “ ; skip a line 

jmps Get Cont Addr ; go ask again 
Get cont_ret:~ ~ 

" ret 



AH,n 

CL, 4 
AH, CL 
BX 

AH,C BX ] 

BX 

AL,r BX ] 

CL, 4 

AL,CL 

BX 

AL.C BX 1 

controller base 
MB contbase,AX 
Ge^_cont ret 

^issue 



nibble 



get first digit 
; shift it to nigh 

increment index 
2nd dig or’ed into low nibb 
increment index 
get third digit 
shift it to High 



nibble 



; increment index 
:4th dig or*ed into low 
address that was built in 

; go return 
message, retry 



nibb 

AX 



;* INIT CONT subroutine * 

. * j^a|C3|ti|uira|c3|t3|t:|C3iC3^9|c^a|c:|CAit3|(:|(4c3|c:|C3K4K3|i3|C3|c3|c:|caiB3|c:4i3|t:#;|{ 

;called from: Main. 

Init_Cont: ;*=* inits the MEE controller and each device 

parm in - none 
;** parm out - none 

; initialize page size and minor loop size 

mov AX, MB contbase ;address or controller base 
mov SS,AX“ ;load ES to address bubble 

mov AX, MB maxp^ges ;pages per bubble device 
mov ES:P Ioopsiz6_lc ,AL ;lcopsize low byte 
mov ES : P“looDsiz€_hi , AH ;loopsize hi byte 
mov ES : P" pagesiz€_reg , MB_pagesize ; page size reg 
;issue reset command to tne controller 

mov AL,MB reset cmd ;reset mask byte 
mov ES:P cmnd_reg,AL ; issue reset command 
;initialize each bubble device 

mov CX,MB maxdevs+1 ;ccunt for loop-# of devices 
mov AL,0 ~ ;device # to initialize 

For_each; 

mov ES: P_select_bubdev ,AL ;select each device 
mov ES:P cmnd reg, MB init cmd ;init this device 
push AXIpush Cl! push Is ; save bubble #, counter, ES 
call Wait ;wait for controller to work 
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n 



pop ES! pop CX! pop AX ; restore ES ,cntr, bubble # 
me AL ;next device number 

loop For each ;dec CX, loop if net zero 

;issue msgs indicating formatting in progress 
call Crlf ;skip an extra line 

mov DX, offset msg_forniatring ;formatting msg addr 
call Print String ;write msg to console 
ret 

* PRINT STRING subroutine ♦ 

;called from: Close Up. Get Cont_Addr, 

; Init_Cont, Main, Set Up. 

;** prints buffer addressed until ''S’ hit 
;** parm in - address of buffer in DX 
;** parm cut - none 

CL, Bdos_pstring ;f unction # for Bdes call 
Bdos ;call Bdos and prinr 

Crlf ;skip a line 



Print_String; 



mov 

call 

call 

ret 



PUTCBAR subroutine ♦ 

;called from: Crlf. 

Putchar; ;** writes character from AL to console 

;** parm in - output char in AL 
.** harm out - none 

mov Cl, B aos_conout ;f unction# for Bdos call 

mov DL,AL ;load char to Bdos reg 

call Bdos ;call Bdos and send 

ret 

* * 3k3k 9|c * :i|r * V 4c * * * V * « ^ :4i * * 3«t 

* SET UP subroutine * 

■<c:*4t4(4c4c4c*4c4(*4c4(4c4c4c*4c4r4<4>4c4c4c4c3|>*4i4i4c4i4c4>4c4c4i4<4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c*4c4c4( 

;called from: Main. 

Set_Up: ;** inits . variables and issues signen msg 

;** parm in ** none 

parm out - none, effects global vars 
call Crlf ;skip an extra line 

call crlf ;skip an extra line 

mov DX, offset msg_signon ;signon message address 
call Print String jwrite msg to console 
mov DX,ofTset msg_version ;version msg address 
call Print String ;write msg to console 
call Crlf ~ ;skip an extra line 

;initialize all variables and flags 

mov curr bub no,0 ;current bubble # to 0 
mov curr~sect cr_no, 0 ; current sector # to 0 
ret 



ic * a|i :«c ale ale :|c a}e ak a|r * ait * ale A a|e A 3^ a|e aj: ]«|e ^ a|e IF 3|t « lie :|c ^ 3(c ape 3^ a|e aic 

* WAIT subroutine * 

«4 4ijk4c4c*4t«*4c*4c4c4c4e4c4<4c4>4c4e4e4(4c4»ic4c4c4c4c4t4c4c4:9 4i4c4c4(4c4c4c4c*4c4c4c4t*«4e4c4c4c4e4c4(4c 

;called from: Init_Cont, Write^Sectcr. 



Wait; 



checks status of ME& controller for busy 
keeps checking (wait) until not busy 



;** parm in - none 
:** oarm out - nene 



mov 

mov 



AX, MB contbase 
ZS ,AX“ 



;address of controller base 
;load ES to address bubble 
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S€6_zero: 

mov 

and 

Ccnt_busy ; 

mov 

and 

jnz 

ret 



AL, SS : P_status_reg ; get status register • 
AL,MB_busy check ; is it all zeros ? 

See_zero ” ;i£ so, keep checking for one 

AL, ES : P_status_reg ;get status register 
AL,MB busy check ;see if busy, and to mask 
Cont_'5usy “ ;if busy, check again 



* WRITE SECTOR subroutine ^ 

9k:|3|i:4i9kic]|e9k*:tc«:«t#:^9k9k9|c:k«:(iX3tc9|(:*]i(]it9|i**WiW>ai‘**«#Wc3tc4c4i:4t#Wt:<i3|t*Wt«#Wc4i:|i4iW<***Wi:* 

;called from: Main. 

Writ€_Sector : ;** writes sector using format patt to MBB80 

;** parm in - none 
;** parm out - none 

call compute_Pageno ;compute 1st page# cf sector 
;establish addressability to controller 

mov AX, MB contbase ;address of controller base 
mov ES,AX“ ;load ZS to 

;set multipaqe mode 

mov ES:P cmnd reg, MB_multi_page 
;load first page number for transfer 

mov AX,curr_page no ;current page # formatting 
mov ES:P pagesel^lo, AL ; page select lo byte 
mov ES:P“pagesel hi, AH ;page select hi byte 
;set number oT pages ^o transfer = pages/sector 
mov ES:P pagecnt_lo, MB_pages sec ;# pages to 
mov ES:P“pagecnt hi,0 ;ni byte of # is zero 
buffer to send data 

CX, M3_buflen-1 ;count for loop-buffer size 
bubble device and issue write cmd 
AL,curr bub no ;current bubble # formatting 
ES: P_select” bubdev,AL iselect current dev # 
AL, format plrtern ;load format 



address bubble 
;multipage mode 



xf er 



;set up 
mov 
; select 
mov 
mov 
mov 
mov 



ES : ?_wdata_reg^_ AL ;write a byte to FIFO buff 



SS;P_cmnd reg, Sb_ write cmd 
interrupt from controller 



mov 

;wait for 
Write_int : 

mov AL,ES:P int flag 
and AL. MB_cdkint_mask 
jz Write int 

;write into HBB FIFO buffer 
mov 
mov 
loop 



pattern 
• to FIFC 
write FIFO buff 



; get interrupt status 
; has interrupt been set? 
j.if not, keep checking 
rrcm format pattern 
AL, format pattern ;byte from pattern to AL 
ES:P wdata reg,AL ; write a byte to FIFO buff 
Write int “ ;dec CX, loop if not zero 



push ES ;sav€ ES 

call Wait ;wait for controller to stop 

pop ES ;restore ES 

mov SS:P_cmnd r eg, MB_int_inhibit ;clear cont int 



* DATA SEGMENT AREA * 

:yc:^aic:^ :fc :|c:ie 



DSEG 





orq 0100H ;leave room for base page 

Variables 



4c 



Ascii 


_table 


db 






rb 






db 


cors 


buff 


rb 


curr_ 


bub_r.o 


rb 



OOH,O1H,O2H,03H ,OUH,05H,06H-07H,08H,09H 
7 ;for Ascii 3aH to 40H - invalid 
0aH,0bh,0cH,0dH, 0eH,0fH 
conouf_siz6 ;area for console input 
1 ;bubbie device #0-7 formatting 
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■^TVjV 




curr_page_no rw 1 
curr sector no rb 1 
MB contbase dw OOOOH 



; bubble page # formatting 
;tub logic sect # fcrmatfing 
;base segment addr for aBB-80 






string data area fcr console messages 



* 



msg donedev 
msg^endformat 

msg_errinp 

msg_formatting 

msg_getaddr 



msg_signon 

msg_version 



db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 



' Done with a device. $* 

•^Formatting complete..,' 

•returning to CP/H!$' 

not exactly 4 digits entered,' 

' or invalid hex digits! !$' 

'Formatting the devices $' 

cr,lf,'Key in 4 digit segment base addr' 
'ess rcr HBB-80 ccntrolle r. ' . cr ,lf 
'Bust be in hex (4 digits, then CR only)' 

• => $ » ^ -3 r it 

I I 

•** MBE-80 CP/H-86 BUBBLE FORMATTER 

I I 

'Multi-Page Mode Version 1.05' 

0 ;GENCMD to fill last address 



end of Variables ♦♦♦♦♦♦♦♦♦^^i************** 



ESEG 

♦ MBB-80 CONTROLLER AND PORTS ♦ 



§ pagesel_lo rb 1 

P“pagesel_hi rb 1 

P~ciiind_reg rb 1 

P“rdata_reg rb 1 

P wdata_reg rb 1 

P~status reg rb 1 

Plpagecn?_lo rb 1 

P_cagecnt_hi rb 1 

P_lcopsize_lo rb 1 

P loopsize hi rb 1 

“ rw 1 

P_pagesize_reg rb 1 

rw 1 

P select_bubdev rb 1 

P"int flag egu P select 

Controller 



;ls byte for page select, (0) 

; ms 2 bits for page select, (1) 
;command register, (2) 

;read data register, (3) 

; write data register, ( 4 ) 
;status register, (5) 

;ls byte for page counter, (6) 
; ms 2 bits for page enter, (7; 
;ls byte for minor Icop sz, (8i 
; ms 2 bits for min loop sz, (9 
;internal use (page posj', (A,Bi 
;page size register, (C) 

;TI use only, (D,E) 

;two uses: sel bubble dev (F) 
bubdev ; interrupt flag (F) 
and Port definitions 



* End of Program MB80FMT * 

END 



% 
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APPENDIX B 



PROGBAH LISTING OF NBBIOS.Ad6 



FILENAMES: Pascal = MB. BIOS. TEXT 

CP/M = MEBICS.A86 



•title 'Customized Basic I/O System' 



3k * 



* This Customized BIOS adapts CP/M-86 to 

* the following hardware configuration: 

* Processor: iSBC 86/12A 

* Disk Controller: Intel SBC 202 

* Bubble memory: MBB-80 with memcry-mapped I/O 

* Memory model: 8080 



* 



* 

♦ 

* 

♦ 



Programmers: J.A. Neufeld, M.S. Hicklin * 

* Revisions : * 

3k # 

:k 3k «3|c « 3k 3k 4 e 4> # * 4c3ic * * * 4I 3(( 4 c3|c 3(e 3tc * 3|> * 3tt 3(( 3d :n 4e« 3<t 3|t 4c 3<( 



. 3k3k 3k3k3k3k3k3k3k3k3k3k4>3k3k3k*3k3k3k EQ CATES 4c3k:k:k4c3t‘4t*3k3k4t4t:k**3k3k3k3k3k*3k3k3k3k 



Miscellaneous equates 



» 

« 

» 



addr_high ram 
bdcs_int_f ype 
cr 

disk_type 

true 

false 

If 

max retries 
mbbH0_tYpe 
sector size 



egu OfOOH ;high para user available RAM 

equ 224 ;reserved BDOS interrupt 

egu OdH ; Ascii carriage return 

egu 01H ;type for standard floppy disk 

equ -1 ;fcr conditional assembly 

equ not true ; for conditional assembly 

equ OaH ;Ascii line feed 

egu 10 ;fcr disk I/O, # of tries 

equ 02H ;type for MBB-80 bubble 

equ 128 ;Cp/M logical disk sector size 



13251 USART console ports 

CONP data equ 0d8H ;I8251 data port 

CONP_status egu OdaH ;I8251 status port 



Disk Controller ccmmand bytes and masks (iSBC 202) - 



DK_chkint_mask 
EK_home_cmd 
DK_read_cmd 
CK write cmd 



equ 004H 
equ 003H 
equ 004H 
equ 006H 



;mask to check for DK interup 
;mcve to home position comman 
;read command 
; write ccmmand 



W 

d 

I 
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♦ * 



INTEL iSBC 202 Disk Contrciler Ports 



» 



BKP_base 

DKP result type 

CKP_result_byte 

DKP_reset 

DKP status 

CKP“iopb_lcw 

BKP“iopb high 



equ 078H 
equ DKP_tase+1 
equ DKP tase+3 
equ DKP“tase+7 
equ DKP^base 
equ DKP fcase+1 
equ DKP"base+2 



;ctrler*s base in CP/M- 8 
; operation result type 
; operation result byre 
;disk reset 
; disk status 
;lotf addr byte cf iopb 
;high addr cyte of iopb 



f 



Magnetic bubble characteristics (MBE-80) 



MB_buflen 
ME_maxdevs 
ME_maxpages 
MB_maxsectors 
MB_pages sec 
MB_pagesiz e 
MB skew 



equ 

equ 

equ 

equ 

equ 

equ 

equ 



144 

7 

641 

80 

8 

18 

12 



buffer length fcr MEE sector 
bubble devices are #0-#7 

# of pages on each device 

# of leg. sectors on each dev 
t of pages per logical sector 
bubble device page size 

skew factor for page xlation 



f 

t 



Magnetic bubble cemmand 



MB_chkbusy_cnid 
MB_chkint mask 
MB_inhint“cmd 
ME_init_cmd 
MB_mpage_cmd 
ME read emd 
MB3tese?_cmd 
ME write cmd 



equ 020H 
equ 080H 
equ 080H 
equ 01H 
equ 010H 
equ 012H 
sou 040H 
equ 014H 



bytes and masks (MBE-80) 

is controller busy ? status 
mask to chk for MBB interupt 
interrupt inhibir/r eset mask 
initialize the controller 
multi-page mode operation cmd 
multi-page read command 
reset the controller 
multi-page write command 



: I 



starting addresses 

Leader bios is true if assembling the 
LCADER“3IOSr otherwise EIOS is for the 
CPM.SYS file. This section will assign the 
appropriate equates to the starting addresses. 



leader bios 



equ false controls conditional asm 



IF 

addr_bdos 
addr_bios 
addr cep 

ENDIF 



not loader bios 

equ OBO'Bh ;BD0S entry point in CCP 
equ 2500H ; start of BIOS after CCP 
equ OOOOH ;bas6 of CCP is 0 
;nct loadsr_bics 



IF 

addr_bdos 
addr_bios 
addr cep 
"ENDIF 



loader_bios 

equ 0406H ;stripped BDOS entry in CCP 
equ 1200H ;start of LD3I0S after CCP 
equ 0003H ;base of CPMLOADEH 
; loader_bics 



• rk 



* 

End of Equates 



167 



. ******5k*aitjit***»^#dtj(t* START CF CODE ♦********^¥si‘3t!**#j(i*^*»#** 

CSEG 

org addr ccp 

CCE : ~ 

org addr_bios 



f 

f 



BIOS Jump Vecto 

jmo INIT 
imp WBOOT 
imp CONST 
imp CONIN 
imp CONOUT 
imp LISTOOT 
imp PUNCH 
imp READER 
imp HOMS 
imp SELDSK 
imp SETTER 
imp SETSEC 
imp SETDMA 
imp READ 
Imp WRITS 
imp LISTST 
imp SECTRAN 
imp SETDMAB 
imp GETSEGT 
imp GETIOBF 
imp SETIOBP 



for Individual Routines 

enter from BCOT ROa or LOADER 
arrive here from BDOS call 0 
return console keyboard status 
return console keyboard char 
write char to console device 
write character to list device 
write character to punch device 
return char from reader device 
move to trk 00 on cur sel drive 
select disk for next rd/write 
set track fcr next rd/write 
set sector for next rd/write 
set offset for user buff (DMA) 
read a 128 byte sector 
write a 128 byte sector 
return list status 
xlate logical->physical sector 
set segment base ror buff (DMA) 
return offset of Mem Desc Table 
return I/O map byte (iobyte) 
set I/O map byte (iobyte) 



* :(t A « jk *:«(**:« A 4c ** air* ^ « A :«(#:« 3|i :<( 4c * Jti «««*««« ;«c « 4c « 4c 4c « * 

**4i**4i4c4c4c4c4c 'INIT’ jump VeCtOr destination 4«4c4c4c4c4c4c**4c* 

* 4 4>3tc4c*4c*4c4c*4c4c4c***4c4c**4c4c4c»j|c4c4c4caic4c4c4c4c5(c=*4i^4c4«4t4c4c4t4c*4c4c4c*4c4c4c4c*4c4c4c 



INIT 



;called from: bios jump vector. 

Enter from BOOT 50a or LOADER 
parm in - none 
parm out - none 

print signon message and initialize hardware 
mov AX,CS ;we entered with a JMPF so use 

mov SS,AX ;CS: as the initial value of SS:, 

mov DS,AX ;DS:, 

mov ES. AX ;and SS: 

use local stack during initialization 
mov SP, offset stack base 
cld ;aufo-increment on 

setup all interruDt vectors in low memory tc 
address the soft/hardware traps. 



IF not leader bios 

call Init Bios Int :set“up interrupts for CPM.SYS 
ENDI? ~ ;nCw loadsr_bios 

IP loader_bios 

call Init Ldr Inr ;set up interrupts for LOADER 
ENDI? ~ ;lcader_bios 

Iperform special initializations for CP/M-86 

call Load_Dma Addr ;load dma addr for devices 
call D6vice_Inic3 ;init all devices 
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; (calls for additional initialization go here) 
mov BX, offset msg signon 
call Print^asg ;print signon message 
mov CL,0 ;d€fault to dr A: on coldstart 

jmp CCP ;ju®p to cold start entry of CCP 



t 



9k 9^ ak ^ ^ He ^ lie # # 9|e ^ 341 :4c ^ 9^ 9|t # )fK :4c a|i 3^ # :ic 4e :4c :4c 3|t :|t 

mn^****^*** »MBOOT* lump vector destination *****Hf***** 



waccT: 



; called from: bics jump vector. 

;♦* Arrive here from BDOS call number 0 
parm in - none 
** parm cut - none 



jmp 



CC^+6 



;entry to CCP at command level 



ff 



:*9b94i*a|i:|t:4c3|i3k:^9k9|ea|ea|i9k9«t9ka|ta^a^:^9«ta|ia|c9|ea#:4e9(e94t99i94c:4c3|c9|ta|(a^a|i:|[a|eai:a«c9^r4t3^9|i9k9«e:|e:|ca|t;4c9|c:4c9|ca|t9k9fe:4t 

9k 3k 

* CP/M Character I/O Interface Routines * 

* console is OSART (I8251A) on 8612 at ports D8/DA ♦ 

* ♦ 



'CONST' jump vectcT destination ♦♦★♦»i****** 

A «:(( *3k :*** 3«t 4ii|i e 41 41 ate : 4 c 4t » *3|c A 3|> 4( «* :«c « V # 



;called from: bios jump vector. 

CONST; ;=** returns console keyboard status 

;*♦ parm in - none 

;** parm cut - returns status in AL 
;** 00=not ready, Off=ready 

in AL,CONP_status ;get status 
and AL, 2 ;see if ready-bit 1-is set 

jz Const ret ;if not, it is zero and net ready 
or AL,0frH ;is ready, return non-zero 

Const ret: 
ret 



. 9k :4 3k:|l 3k 9 k: 4 c 3k 3k 3k : 4 c 3^ 3k 3^ : 4 c 9k : 4 c : 4 c 3k 3k : 4 c 3k 3k 9k : 4 c 3k 3|t 3^ lk 3k 3k 3k 3k sk 3k 3k 9k 3k 9k ak 3k ak 3k 3|C 3k 3k 3k 9k 3k 3k 3k 3k 3k 3k 34 c 3k 3k Sk 

• * 'CONIN' jumo vector destination 3>*a(i****a4tit** 

. «4:4tati*atcatt:4(aK:k«**4>att:tcaic:4e:4(94::ke:4iitt:icati*atc*a|c«:4Mtt«atc*:ti:4t«3tc«aK**«4c4ca((4(atia|i:4Mtt4c3|c:tca4calc 

; called from: bics jump vector. 

CONIN: returns console keyboard character 

parm in - none 

;** parm out - returns character in AL 
call CONST ;get console status 

tesr AL,AL ;is it zero (not ready)? 

jz CONIN ;if zero, keep checking 

in AL.CONP data ;ready, so read character 
and AL,07fH ;remov€ parity bit 

ret 
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■T. y 







I 




! •CONOOT* jumc vectoT destination 

• :4e:4i:|c!le:it:^4e:^9^*1eak:4e:[k:|c:4i:^:^3|c!4(a|c:4c:fc:4(^#:^3|(:^:|t9«tak:|[a)(:^:^]|i*:4i:^a|c#4c4e3<e:^#^ali3V;:^a|e:|(#:^3fc:^4c 

; called from: bios jump vector. 

CONOUT; write character to console keyboard. 

;*♦ parm in - character to be output in CL 
;#♦ parm cut - none 
in AL ,CONP_status ;get console status 
and AL. 1 ;?€6 if ready-bit 0-is set 

jz CONOUT ;if zero, not ready-keep checking 

mov AL.CL ;lcad input parm to AL tor out 

out CONP_data,AL ; output character to console 
ret ~ 



.*:♦♦♦♦***♦** 'lISTOOT* jump vector destination ****m****** 

;called frcm: bios jump vector. 

LISIODT: write character to list device. 

•** parm in - none 

parm cut - char to be output in CL 

;not implemented 
ret 



. 'LISTST* jump vector destination **^4r***-*^** 

. * * 9|c A * # A 3d « * « # 4c 3<t :fE :(i * * * 4 4 * * 4I « « :•! 4 # * * « 3t( :4( :«I « wc 3K « * « # :i<e :4c * # 3d :|e 4< « :4c 

called frcm: bios jump vector. 

LISIST: ;=** returns the list status. 

parm in - none 

** parm cut - list device status in AL 
; 00=not ready, Off=ready 

;not implemented 
ret 



. * 3» 4 4 3k 3«C 3k 4 « * --k 4c 3* 4 34( 3«C 3k 3k 4 4 4c 4 # « 3«C 3|C 3|C 3(C 3|C 3(C 3|l 3k 3«C 4 3fc 4 44 34 3(C 4 3<C 3|C * 3(C 3<C 34c 3(C 3(C 4 Wc 3^ 4 3(C 3«C 3|C 3(C 3|C 

. *43k444444*4 »P0NCH’ jump vector destination 44444444444 

. A 4 4444444 A4 444 443k4444444^ 444444444 444444444444444 4444444 44 

; called frcm: bios jump vector. 

PUNCH: :=k4 write character to the punch device. 

;-*4 parm in - character to send in CL 
.44 parm cut - none 
;not implemented 

mov AL,01aH ;return eof for now 

ret 
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;*!♦♦**♦****♦ ’READER' jump vector destination ♦*4i***»**** 

. at:* j*j)(;(i3(ijH#:(t**Jlt#*3t(*T* #*#•♦* ♦*♦**♦*♦♦ ♦♦♦♦♦:(i***** ♦art** ♦♦3|t*** 

; called from: bios jump vector. 

READER; ;** return character from reader device. 

;*♦ parm in - none 

;*♦ parm cut - character read in AL 
mov AL,01aH ;return eof for now 

ret 



.♦****♦♦♦♦♦♦****♦♦*****♦♦♦♦***♦♦*♦♦*♦♦**♦*♦**♦*♦*♦♦*♦***♦♦* 
I*********** 'GETIOBF' jump vector destination *********** 

.**:*♦*♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦**:rt** *♦♦♦**♦♦:***♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦**♦**♦* 

; called from; tics jump vector. 

GETIOBF; ;** return I/O map byte (iobyte) 

;** parm in - none 

.*♦ parm cut - returns iobyte in AL 
mov AL, iobyte ;iobyte not implemented 
ret 



.♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦**♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦*♦♦♦♦♦♦*♦♦♦♦*♦ 
;♦**♦♦♦♦♦♦** 'SETIOBF* jump vector destination *******♦♦♦♦ 

J ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**]tc*j{*******************:(e***** ♦*♦♦*♦♦♦♦♦ 

; called from; bios jump vector. 

SETIOBF: ;*♦ set I/O map byte (iobyte) 

;*♦ parm in - iobyte to be set in CL 
;** parm cut - none 

mov iobyte, CL ;iotyte not implemented 
ret 



A 

* Disk Input/Output Routines 

* Disk is i202 Controller with ports at 078H for 8 bytes 

* **♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦**♦♦♦*;♦*♦*♦♦♦♦♦*♦♦♦*♦♦*:*♦♦♦♦ 



♦ **♦♦♦♦*♦*♦♦♦♦ ♦♦♦♦♦♦♦♦*♦**♦**♦♦♦♦♦♦*♦♦♦♦♦♦ Kt ♦*♦*♦♦*!♦♦:* ♦♦♦are 

♦*♦♦♦♦♦♦♦♦♦ 'SELDSK* jump vector destination *♦♦*♦»♦»♦♦ 
♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦>*♦♦♦♦♦♦♦ 



SEIDSK: 



;called from; bios jump vector. 

;** select disk for next read/write 

parm in - disk number to select in CL 
parm cut - address of first dph in 3X 
; dph is a disk parameter header, 
mov disk, CL ;save disk number 

mov BX,0 ;ready for error return 

cmp CL, num loa disks ;beyond max disks? 
jnb Seldsk'ret ;return if sc 

mov CH,0 ~ ;double(n) 

mov 3X,CX ;BX = n 

mov CL, 4 ;ready for *16, 16 bytes each dph 
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K K « « » » » # 



first dph 



shl BX,CL ;n = n * 16 

mo7 CX, offset dpbase ;address of 
add BX.CX ;dpfcas€ + n * 16 

push Bx :save dpbase 

;determine tyoe of device this disk number is 
xor BX,BX ‘ ;clear BX of index 

mov BL,disk ;load disk number for index 

mov AL, devic6_tableC BX ] ; find type of device 
mov device_type, AL ;store the type returned 
;make CP/M logical disk # mapping to floppy cont or 
;MBB-80 cont address depending on device type, 
cmp device t ype, disk_type ; is this a floppy? 

*80 cont addr 
disk # 

:|mps Seldsk 
Load mbb80 cont: 



3na Load mBb80_cont ; if not, do MBB* 
mov AL,D'5 logical tablefBX] ; get floppy 
mov DK diSk,AL jStcre floppy cont disK 
. return 



~add Bl, BL jdcuble disk # for word index 

mov AX, MB logical tableCBX] ;get addr of cont 
mov MB_contbase , AX ;store as current base addr 
S^Xdislc ustj* 

poD BX ;restore dpbase for return 

ret 



.ik4****ylt*****it************^****** ********** ****** ********** 

.^ii/*if****:tt** 'HOME' jump vector destination 

j :k^********ytt**^tJti******m************************************ 

;called from: bios jump vector. 

HOME: move tc trk 0 on curr selected drive 

;** parm in - none 
;♦* parm out - none 

cmp device type, disk type ; is this a floppy disk? 
jne Mbb80 Home ;If not, home bubble 

mov DK_io”coffl,DK hcme_cmd ;hcme the floppy disk 
mov trackTO ~ 

call Bk Execute Cmd 
jmps Home ret “ ;go return 
Mbb80_home: 

xor CX.CX ;clear CX, parm - track=0 

call SETTER ;set track for bubble = 0 

Hcme_ret : 
ret 



. «:*: 4 i 4 c: 4 c:«: 4 i: 4 c* 4 c: 4 c 'SETTER' jUffiP VeCtOTT destination *********** 

; called frcm; bics jump vector, HCME. 

SETTER: ;** Set track for next read/write 

;** parm in - track address in CX (CL) 

;** parm cut - none 
mov track, CL :stcre track number 

cmo device_type,dj.sk_type ; is this a floppy disk? 
je'Settrk ret ;if so, just return 
call Mbb8U_Track Xlat jbubble, so xlat track->bub# 
Settrk_ret: ~ 

ret 
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»» * 



'SETSEC jumc vector destination *♦♦♦** 

;called from; fcios jump vector. 

SETSEC; ;*** Set sector for next read/write 

.«4( parm in - sector number in CX (CL) 

;♦* parm out - none 
mov sectored ;stcre sector number 
ret 



^ A A # * 3H:* * * :(( 4> 4i 4> 4( * 4c « :|t :(> 4c|c «4( 4c 3|( « 3|i* 4( 4( 4 e 3(( 4c 4t 4t * 4t 4c34( 4c 4( 3|i V 4c 4c^ :^4; 4( 4c 4( 

4*:#4c*:k4c*4cA 'SECTRAN' jUmp VeCtOr destination 4 ca4c4cA:*:*4cAa4c 

4 4>4cA4c4c4c4c4c4c4cA4c4i4c*AA4c4c4c4cA4c*4cAA4cA4c4c4c4c«4c4c4ca4c4c4c4c4c4c4c4c4c4cA4c4c4c4c4c4c4c 

;called from; bios jump vector. 

SECTRAN; ;** Translate logical to physical sector 

;** parm in - sector in CX; table at f DX ] 
:** parm cut - physical sector # in BX 
;clear high byte 
;load input parm for return 
;is there a xlat to be done ? 

;if not, just return 
;add sector to tran table address 
;get logical sector 
ret ; go return 



mov CH,0 
mov BX,CX 
test DX.DX 
jz No Skew 
add BX,DX 
mov B1,[BX] 
jmps Sectran 
No skew; 

~ add BX, 1 
Sectran ret; 
re€ 



:nc xlat,C?/a sect #0 => sect i1 



. A4 4>*4cAA4c*AAA4c4c4c4cA*4c4c:^AA4>4c4*4cA4c4c«c**:#A4t4c4c4cAA4c4cA4cA4c4cA4c4c4c4c4c4cvclc 

I A44t4c#AAA4c*4c « SETDMA ' jump VeCtOT destination 4cA»4cA4c4i4c4c4c* 
j A4 i4i4cA4cAA4c4c A4c4c3k4c*A4c4cA4c4c4c4c4c*A4c4c4cA4c4c4c4c4>4c4>4c4c4c4c4c:^4c4c4c4c4>4c4c4c4c4c4c4c4c4c 

; called from; bios jump vector. 

SETDMA: ;** Set offset for user DMA buffer 

;4c4c parm in - DMA offset in CX 
:** parm cut - none 
mov dma_of fset.cx ;store dma offset 
call Load Dma Addr ;update DMA info for all devices 
r^t: * * 



I AAAAAcA 4 eA*AA »SETDMAH' jump v6ctor destination »»4c4c4C4t4cAAAA 

• 3k lb 4(2k3ik:^:le3|c?^:^'^:k:fcx ik:iciii!*aicx:4c:i(:9 4c9ic3fc:|C3k9kife:|c #ik 3k:|[m ifc* ik:|e:|cii lie ilex 

;called from: bios jump vector, 

SETDMAB; ;** Set segment base for DMA buffer 

;** parm in - segment in CX 
; 4 ca parm out - none 
mov dma_seciment ,CX ;store dma segment 
call Load_Dma Addr ;update DMA info for all devices 
rer ~ 
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. -k x:4(:ic94c:4c4c :«*«**# 4 :|t*:» A 

! :»-:k34>94(**9K«x(** *GETSEGT' jump vector destination *********** 

• ii^^Hik:^ik**i^:^:tii^leM*m**if:^:i\eTkitc*m*******************i*»************ 

;called from: bios jump vector. 

GETSEGT: ;♦* Return offset of memory desc table 

;*♦ parm in - none 

:** parm out - address of table in BX 
mov BX, offset mem desc table 



ret 

t 



:i^ak9ic94(3*c Aiic:^3[|::^:|e:k2|c3^3icxi4K i|(7|(3ir :|k 3|e 3|L:|(4e 3|e #:^t|caiic3^ a|c a^:|(:|e * 



All I/O parameters are setup; 

disk is disk number (SELDSK) 

track is track number (SETTHKj 

sector is sector number (SETSEC) 

Each device maintains its own DMA info as required 
by its controller, using dma offset and dma segment. 
READ reads the selected sector to the DMA address, 
and WRITE writes the data from the DMA address to 
the selected sector. The MBB-00 bubble will use diff- 
erent routines to perform the read and write funct- 
ions. The MBB-80 works with MB_bub no (from MBB Track 
Xlat) and MB_page no (from Mbb_Sec^or_Xlat) - tdese 
values are derived from the vars, track and sector. 



:li Wc * * ♦ * V ^ A « * 4t Wt « Wt :4i it « « 3^ ,ii « « 4 « « Wt Wt * * 3* * * * * 4> * 4c A * 



A :4 9k it 4c 4c 4c 4c 4( 4i 4c 4c 4( 4> 4c 3k * 4c 4c 3k it 4c 4c 4t 4c 

4c4 4i3kA3k*4c4c:k4e ’READ’ jUmp 

A 4> 4t A A A 4c 4c A 4c A 4c 4c A A 4c * A « A A 4c 4c 4C A 

; called f 
READ: ;*♦ Read 

;** parm 

r* 

cmp device_t vpe,di 
jne Bubble_read 
mov CL, 4 
mov AL,DK_disk 
sal AL, CL 
or AL-DK read_cmd 
mov DK id_com,AL 
call Die Execute Cm 
jmps Read_ret “ 
Bubble read; 

call MbbSO Read 
Bead_ret : 
ret 



4 ^ 3^ 3^ :|E # 3^ # 3(e 9|c 3|c 3^ 3^ :|e 9^ 3|[ # 4t # ^ * 

vector destination *********** 

3# 3^ 3|( 3|l 3|t 3^1 3^ 3|l Sic 3«C 3^ ^ 3|e 3^ 3^ 34( 3|C 3K 3|e 3<e 3fK 3|{ 3iC 3|C 3«( 3^ 3^ 3^3<C 3^ 9^ 3«( 

rem; bios jump vector, 
a 128 byte sector 
in - none 

cut - return code in AL 
CK, FF = unsuccessful 
sk type ;is this a floppy disk? 
;If not, use bubble routine 

;comblne disk selection 
;with opcode 
;create iopb for read 
;load iopb 
d ; perform the read 
;return 

;use bubble routine to read 
;perform the read 
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»*#**♦»# 4 



• ******* :(c>)c * J(C **»♦*****♦*:<«***»♦*♦»*♦****♦♦ *♦*♦♦♦»*♦* 

I*********** 'WRITS' jump vector destination *********** 
. ********************************************************** 

; called frcm; bios jump vector. 

WRITE: ;** Writes a 128 byte sector 

;** parm in - none 
;** parm cut - return code in AL 
; 00 = OK, FF = unsuccessful 

cmp device type, disk type ; is this a floppy. disk? 
jne Bubble”write ;if not, use bubble routine 
mov CL, 4 

mov AL,DK_disk ;combine disk selection 

sal AL.CL ;with opcode 

or AL.DK_write cmd ;create iopb for write 

mov DK io_com.SL ;load iopb 

call Die Execute Cmd ;perform the write 

jmps Wrlte_ret ~ ;return 

Bubble write: ;use bubble routine to write 

call Mbb80_Write ;perform the write 

Write ret: 
ret 



:|c 9k 9lc :«e * :^:4c He :ik :<e 3^ :4 k 3|c 3|e :i^ :|c « * 3^ * * ak 3^* * 

9k 

* The following subroutines perform various specific 

* tasks for the above jump vectors. 

* 

# 4 s4i 9k 9k 9k 3(e 3(e 9k 9k 9|e :|e :4 k 3k * 3k 4 k * 3k 9k ak 9k :|C :|e aic 34e 3|e :|t 34t 9|e 3|e 9)1 :|e # 9|e 3k 3k ^ 3|e ak 9|e :4 k * 9^ 3|C :|e 9k 3|e 9k 



3k:k3k3k3kak3k3klK:4Kak9kak3k3k3k9k9k*:k*:4K:k:k3k 3k3k3k3k3k3«C3k4l3k3k3k:k3k3k9k3k3k 3k3k3k3k4K3k3k4K3k:k3k3k3k3k3k 

* DEVICE INITS subroutine 

********:********* ****!|l*** *********************** ********* 

‘.called from: ISJT, 

Device Inits: ;** Perform any init necssary for 

“ ; all devices generated. 

:** parm in - none 
cut - none 

for the iSBC 202 disk ***) 
the iSBC 202 iopb {channel command) 
;load Cl for shirt 

AX,CS ;lcad AX with this segment 

AX, CL ;mcve segment to high byte 

AX, offset DK iopb ;offs€t of iopb (chan cmd) 
DK_iopb addr,3X ;stcre for later use 
any iSHC 202 controller to be initialized 



** parm 

Device initialization 



; (*♦* 

;Ioad address 
mov CL, 4 



mov 

sal 

add 

mov 

;see if 



xor CX,CX ;clear CX for counter in loop 

mov CL,num log disks ;load # of disk' devices 
Check_i202: " 

mov EX,CX jindex into device table 

cmp device tablej. BX ],disk_type ;i202 disk? 
je Init_i'202 ;if so, go init the ccntr'ler 
loop Check i202 ;check next 
jmos Done i2C2 ;nc i202, go init mbb30s 
Init_i202: 

in AL,DKP_resulr_type ;clear the controller 
in AL,DKP_result byte 

out DKP reset, AL“:AL is dummy for this command 
; I*** Device initialization for the hBB-80 bubble ***) 
;inirialize each MBB-80 controller defined 
Done_i202 ; 

xor CX,CX {Clear CX for counter in loop 

mov CL, num_log_dis ks ;lcad # of disk devices 
push ES ;save register 

Init mbb80: 
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xor BX,BX ;clear BX for index 

mov BL,CL ;lcad cent # to BX 

dec BX ;subtract 1 for table 

add 3L,BL tdcuble index for word lockup 

mov AX, MB_logical table[BX] ; get cont addr 
emp AX,MB_null ;Xs it a null addr (place holder)? 
je Next mbb80 :if so, go to next cont’ler 
mov MB_contbase , Ax ;load to current base 
;initiaiize page size and minor loop size 

mov ES,AX ;load ES to address bubble 

AX, MB maxpages : pages per bubble device 

ES: MB‘P_loopsize_lo, AL ;Iocpsize low byte 
ES: MBP_lcopsize_hi , AH ;loopsize hi byte 
ES: MBP_pgsize_reg, ME_pagesize ;load page size 
reset command to the controller 
AL,MB reset_cmd ;reset mask byte 

ES:MBP_cmnd reg,AL (issue reser command 
each bubble device 

;sav€ CX, outer counter 



mov 
mov 
mov 
mov 
; issue 
mov 
mov 
(initialize 
push CX 



CX,MB maxdevs+1 
AL,0 “ 



.count for loop-# of devs 
(device # to initialize 



_ tUJJ, 

ES: MBP cmnd reg,MB_inix_cmd (init this device 
ush CXTpusn 



(0 Wait 
pop CX! 

each 



S3 



mov 
mov 

For each. 

mov ES: MBP_select_bubj^AL (select each device 
mov ' 

push AX! 

call Mbb. 

pop ES! pop CX! pop AX 
me AL 
loop For 
pop CX 
Next_mbb80 : 

loop Init_mbb80 (go init 

pop ES (restore 

Device_r et : 
ret 



save bubble# , counter , ES 
wait for controller 
restore ES, counter, bubble# 
next device number 
dec CX, loop if not zero 
restore CX, outer counter 



next cont 
register 



. A 9)1 # * ic 4c * :4c # « * « * « 4c :* * * 4c « * « 9 * 4c « 4c # * ♦ * 4c :4c * * « # * * 4c ♦ * 4c « 

(* DK EXECUTE CMD subroutine 

. 4c4 4c4c*4c4c4c4c4c4c4c4c4c4ciric4c4c4c4c4c4c«4c*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c44c4c4c4c4c4c4c*4c 

(Called from: HEAD. WHITE. 

Dk_Execute_Cmd: (*=♦ Executes a disk read/write command 

(♦* parm in - none 

(* 4 c parm out - status of the op in AL. 

;* 4 c 00= CK, FF= unsuccessful 

Lcad_retries : 

mov DK rtry cnt,max retries (load count for retries 
(send iop5 to disk controller via two ports (2 bytes) 
Send_iopb: 

in AL,DKP_result type (dear the controller 
in AL ,D KP_result“byte (dear the controller 
mov AX, DK_iopb_addr (get address of iepb 
out DKP iopb_low,AI (Output low byte or icpb addr 
mov AL.dH (load high byte to AL for output 

out DKP ioDb_hign,AL (out high byte of iopb addr 
(Check f or“interrupt from disk controller 
Disk_int : 

in AL,DKP_status (get disk status 
and AL, DK_chkint mask (interrupt set? 
jz DisK int 7if not, keep checking 

(see if interrupt signifies I/O completion 

in AL.DKP r9sult_type (get reason for interrupt 
emp At,00H (was I/O complete ? 

jz Check result (if so, go check the result byte 
in AL.DK? result byte (dear result byte 
mov AL,08IJH Tdisk wasn't ready - load code 

jmps Retry (load err code, and go retry 

(Check result byte ror errors 
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* * 



Check result: 

In AL,DKP_result byte ;get result byte 
and AL.OfeH TcBeck for error in any bit 

jnz Retry : found one, retry 

;read or write is ok, AL contains 0 for return 
imps Dk_execute ret 

; retry the command“until max retries attempted. 

Retry: , ” , . 

mov DK err_code,AL ;save error result byte 
dec DK"rtry_cnt ;dec number of attempts sc far 
jnz Send iopb ;if not zero, send command again 
;did max refries, no success - issue error message 
call T5k Print Err : print out appropriate err msg 
in AL/CONP data ;fiush usart receiver buffer 
call ucon Echo ;read upper case console character 

je'^Wboot^iump ;cancel 

je Loa5 retries ;retry max times again 
cmp AL,’’’!* 

je Dk execute ret ;igncre error 

or ALTOFFH “ ;set code for permanent error 

jmps Dk_execute ret 

Hboot jump: ”;can*t make it w/ a short jump 

3mp »EOOT 
Dk execute ret: 
ret 



;* DK PRINT ERR subroutine ♦ 

;called from: Ck Execute_Cmd. 

Dk Print_Err: ;** Prints out disk error messages. 

parm in - uses DK_err code 
;** parm cut - none “ 

mov E1,DK err code ;load code for index to table 
mov BH,0 “ ■" ;clear high byte of index 

test BL.OfH ;see if error bits in low nibble 

jz Use hi index ;error is in high nibble 
Dse_low_index:“ 

mov BL, DK err loinx(BX] :get offset in addr table 
jmps Frinf_it“ ;go print the message 
Use_hi_index : 

mov CL, 4 ;shift four bits right 

shr BX,CL ;shift it right 

mov BL, DK err hiinx[BX] ;get offset in addr table 
Print_it: ” “ 

mov BX,DK err_table[ BX ] ;load addr of message 
call Prinf Msg ;print appropriate message 
ret “ 



IF not loader bios 

;* INIT BIOS INT subroutine 

;called from: INIT. (if not loader bios) 
Init_Bios_Int : ; ■** sets up the interrupt vectors in low 

;** memory to vector soft/hard interrupts. 
;** oarm in - none 
;** parm out - none 

push DSIpush ES ;save the DS S ES register 
mov iobyte,0 ;clear iobyte 
mov AX, 0 
mov DS,AX 

mov ES,AX ;set ES and DS to zero 
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* * 



;sstup interrupt 0 to address trap routine 
mov int 0_of tset ,of f set Trap_Handler 
mov into segment, CS 
mov DI,4” 

mov 31,0 ;then propagate 

mov CX,510 ;trap vector to 

rep movs AX, AX ;all 256 interrupts 
;BDOS offset to proper interrupt 
mov bdos int of fset ,addr_bdos 

pop ES !“pop~DS ;restore the ES & DS register 
ret 

ENDIF ; not leader bios 



IF loader bios 

;* INIT LD8 INT subroutine 

called from: INIT. (if ioader_bios) 

** sets up the interrupt vectors in low 

memory to vector soft/hard interrupts, 
parm in - none 
parm cut - none 
to proper interrupt 

;save the DS register 
;s€t to absolute low memory 
;make it addressable 



Init Ldr Int: . 

- - 

** 

;BDOS offset 
push DS 
mov AX,0 
mov 
mov 
mov 
. pop 



mov 

emp 

ie 



DS,AX . 

bdos_int offset. addr bdos ;offset 
bdos int~segment.es ” ;this segment 

DS ~ ~ {restore DS register 

message telling where loading from 
BX, offset msg i202 {assume i202 
device table, disk type {check default disk 
Print loader {is disk, print msg 
BX, olfset msg mob {its the mbbSO 



mov 

Print_loader ; 

call Print msg {write msg to console 
; (additional loader initializations go here 
ret 

ENDIF ; if loader_bios 



) 



M :yi:ik4(;4c 3*3fc3^# tic 

■* LOAD DMA ADDR subroutine 

« :)tc * 4( V m A 3tt « 9k * * * « 9k« « 41 4 « « * * * Itc # ac ^ 4e :k* * 4c 

{Called from; INIT, 3ETDMA, SETDMAB. 
Load_Dma_Addr : ; ** upon new DMA addr, updates ail device's 

DMA words, channel commands, etc., that 
are needed because of a new DMA addr. 
parm in - none, operates using variables 
dma offset and dma_segment. 
oarm 5ut - none, updates var DK dma_addr 
202 disk controller dma address" 

. ;iSBC 202 uses 16-bit address 

mov AX, dma_segment {load segment 
sal AX, CL {move segment to high bits 

add AX, dma_of f set {add in dma offset 
mov DX_dma addr, AX :stcre new dma addr - disk 
{MBB-30 uses 20-biu address, therefore can use th< 



■it* 

;** 

;** 
• •** 
! 

{update iSBC 
mov CL,U 



{dma_segment 
rs “t 



and dma_cffset variables directly. 



f 
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A ♦ ait i|c 3|ca^ * :ie * 3k * alK * * Jjc * aie alt # all # 3lc # 5|t ajj sjc ^ ^ it 3jc Jit 

* MBB80 READ subroutine * 

akc :|i an ajcic # it ak a|c alt a|c :|E a|( aft it :|c :|c :|c * !it a|t a|e 4t a|E iK aK 3|e 3|t ak :|i a|e 3|c apt j|c a|c a|e:|c a|e ait 3|i a|c a|nit 3|c it a|( a|t 9ie 3|c a|e ail ^ a|e ajt 

;called from: READ. 

abt80_Read: reads a sector from bubble 

;*♦ parm in - none 

;*=* parm out - status of the op in AL. 

;*♦ 00= CK, FF= unsuccessful 

push ES ;savT6 register 

call Mbb80 Sector Xlat ;compute 1st page# of sect 
;establish ad'drsssabllity to controller 

mov AX, MB contbase ; address of ccntrcller base 

mov ES,AX” ;load ES to address bubble 

;set multipaqe mode 

mov ES;MBF cmnd_reg,M3_mpags_cmd ; multipage mode cmd 
;load first page number for transfer 

mov AX, MB page_no ; current page number 

mov ES: MBP pagesel lo,AL ;page select lo byte 
mov ES; MBP“pagesel“hi , AH ;page select hi byte 
;set number of pages fo rransier = pages/sectcr 

mov ES: MBP_pagecnt lo,MB pages_sec ;#pages to xfer 
mov ES;MBP pagecnt^hirO “ ;hi byte of # is 0 

;set up dma address tc receive data 

mov CX,illB buflen ; count for loop-buffer size 

push DS ~ ;save CP/M's DS 

mov AX, dma segment ;get dma segment 

push AX ~ ;save dma segment DS 

mov BX, dma_of fset ;offset of dma area 

jselect bubble device and issue read command 

mov A1,MB bub no ; current bubble number 

pop DS “ ” ;done local, readdr dma area 

mov ES: MBP select_bub,AL; select current dev # 
mov ES; MBP~cmnd reg, M3_read_cmd ; issue read from FIFO 
;wait for interrup"? from ccntrcller 
Read_int ; 

mov AL,ES:MBP int flag ;get interrupt status 
and AL.MB chkint mask ; interrupt set ? 
jz Read_int ” : if zero, keep checking 

;see if read enough from bubble sector to fill dma area 
cmp CX, (MB_buflen - sector_size) ;transferred enough? 
jnz Read_one ;if not, read another byte 

pop DS ; restore CP/M's DS 

mov BX, offset MB overflow ; reset dest to overflow 
;read from MBB Fl?0”buffer into dma area 
Eead_one : 

mov AL,3S:MBP rdata reg ;read a byte into accum 
mov fBX],AL " ~ 

inc BX 

loop Read int 
push ES “ 
call Mbb30 Wait 
pop ES 



;load accum into dma area 
; increment index 
; dec CX, loop if not zero 
;save ES for call 



mov 



pop ES 
mov AL, 0 



ret 



;wait for controller 
; restore ES after call 
ES:MBP_cmnd reg, MB inhint cmd ;clear cont int 
~ ~ ; restore register 

; indicate success 
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alt ♦ 34t jK a|c a*c s>t * ♦ It * * Jfe A :^e * 3|c * ♦ ♦ ^ Jjc a*c J^e 3<s * :ii ★ :4c # * aif ajc :« 

* MBB80 SECTOR XLAT subroutine * 

called frcm: MbbSO Read, MbbSO Write. 

:■** coaputes 1st page# for a given sector 
** on a single chip. Based on 80 sectors 
** on each chip - sector = 123 bytes. 

** parm in - none, works on sector 

parm out - none, updates MB page_no 



MbbSO Sector Xlat 



Add 



xor 

xor 

mov 

xor 

mov 

add 

dec 

s^ew ; 

■ add 
clc 
sbb 



AX, AX 
CX,CX 
CL, sector 
DX, DX 

DL,MB sector 
CX,DX~ 

CL 

Mbb80_sx_exit 
AX, MB_skew 



AX, MB maxpages 
jae Dec sector 
add AX,^B_maxpagss 
Dec_sector : 

loop Add skew 
Mbb80_sx exit! 

mov"MB page no, AX 
ret "" “ 



set AX'to 0 to Hold page# 
clear CX for counter 
ctr for translaticn loop 
clear DX 

sect# for 1st sect on trk 
add 1st sect# to log sect# 
subtract 1 for the loop 
sect 1 is page 0 , no xlat 

add skew between pages 

clear carry 

mod to # or pages 

jump if positive (CF=0) 

went (-) , add back tpages 

dec sector#, add skew again 

store page number 



MbbSO Track Xlat; 



* MBB80 TRACK XLAT subroutine ♦ 

* 4i :|c :tc 4c * 1# * 3# * 9 :4c ^ * Wc * 4 # :|c * * 4c # « 4 9^ 4c Wt 4c 4: # # * 4c # ^ # 3# * 

called frcm; SETTRK. 

** computes bubble # from track #. Gets 
** first bubble sector (1-80) for that 
** track for later conversion to page #. 
*4c parm in - none, works on track. 

** prm out - loads MB bub nc,MB sector 
BX,BX ; clear BX for add" 

BL, track ; load track - index 

BL, 3L (.double track# for index 

AX, MB track tablet BXj ; get word from table 
MB buB no, AH ; Ipw byte = bubb device# 

MB sector, AL ; high byte = 1st sector# 



xor 

mov 

add 

mov 

mov 

mov 

ret 



. * 4i ck 3k 4C 4c 4( 4C 4c * Ik 4c 4c 4c 4C 4c 4c 4c 4c 4< 4( 4s 4( 4c 4c 4i 4i 4C 4i 4c 4i 4c 4c 4> 4> 4> # 4( 4c 4c 4c 4c 4c 4C 4< 4( 4c 4c 4c 3k 4c 4c 4c 4c 4c * 

;* MBBSO WAIT subroutine * 

. 4c 4>4i 4c 4c 4c 4c 4c 4c 4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4T 4c 4c 4c 4c 4c4> 4c 4c 4c 4c 4c 4C4C 4c 4c 4c 4c 4c 4c 4c 4c 4c 3k 4c 4c 4c 4c 4c 4c 4c 4c 3k 4c 4c 4c 

(called frcm: Mbb80 Init, Mbb80 Head, 

; Mbb80"Write. " 

Mbb80_Wait: ;** checks status of MBB cont for busy 

;** keeps checking (wait) until not busy 
;*♦ oarm in - none 
;** para cut - none 

aov AX, MB_contbase (address of cont base 

mov ES,AX (load ES to addr bunble 

See_zero; 

mov AL,ES:M3F status reg (get status register 
and AL, MB_chk5usy cm3 (is it all zeros ? 
jz See zero " ; if sc, keep checking 

Ccnt_Busy: " 

mov AL,ES:MBF status reg (get status register 
and AL,MB chkBusy cma (see if busy, and to mask 
jnz Cont_Busy " (if busy, check again 

ret 
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•* MBE80 WRITE subroutine ♦ 

;called from: WRITE. 

Mbfc80_Write: ;** writes a sector to bubble 

;♦* para in - none 

;** para out - status of the op in AL. 

;♦* 00= CK, FF= unsuccessful 

IF nor lcader_bios 

push ES ;save register 

call abbSO Sector_Xlat ;get 1st page# of sector 
;establish addressability to controller 

mov AX, MB_contbase ;address of controller base 

aov ES,AX ;load ES to address bubble 

;set aultipage mode 

aov ES: HBP_cand reg ,MB_apage_cmd ;aultipg mode cad 
;load first page nuabsr for transfer 

aov AX, MB page_no ;current page nuater 

aov ES: MBP pagesel_lo,AL ;page select lo byte 
aov ES: MBP"pagesel hi. AH ;page select hi byte 
;set nuaber ol pages to transfer = pages/sector 

aov ES: MBP_pagecnt lo,MB pages sec ;#pages to xfer 
aov ES: MBP pagecnt“hi.O “ :hi Byte of # is zero 
;set up daa address for transfer 

aov CX, MB^buf len- 1 ; count for loop-write size 

push DS ;save CP/M's DS 

aov AX, daa segment ;get daa segment 

push AX “ ;save daa segment DS 

mov EX, daa offset ;address of daa area 

;select bubble device and issue write cad 

mov AL, MB bub no ; current bubble number 

mov ES: MBP_seIect_bub, AL ; select current dev # 
pop DS ; readdr daa area 

mov AL,fBX] ;load first byte 

mov ES:MBP wdata_reg,AL ;write byre to MEB buff 
inc BX “ ; increment index 

mov ES: MBP_cmnd reg,MB write cad ;send write to MBB 
;wait for interrupt from controller 
Write_int : 

mov AL,ES:MBP int_flag ;get interrupt status 
and AL.MB chklnt^masJc ; interrupt set ? 
jz Write_Int ; if zero, keep checking 

;write into MBB FIFO buffer from daa area 



mov AL,[BX] 



; byte from daa to AL 



mov ES: MBP_wdata_reg, AL ; write a byte to MBB buff 



inc BX 
loop Write_int 
pop DS 
push ES 

call Mbb80^Wait 
pop ES 



; increment index 
;dec CX, loop if not zero 
; restore CP/M's DS 
;sav6 ES for call 
;wait for controller 

. _ ; restore ES after call 

mov ES:MBP_cmnd reg ,MB_inhint_cmd ;clear cont int 
pop ES " ; restore register 

mov AL,0 ; return success code 

ret 

ENDIF ;not loader_bios 

l*3(f^3k3ll3tt:tC7lt3tl*±3tt****:***:ll*m**1^3ll***3(fl****>it:t‘**m3t‘**************3>t** 

;* PRINT MSG subroutine 

*********************** ****^****m**************x******* 



Print_Msg: 



;called from: INIT, Dk Print Err, 

; Tr ap_Handler . “ 

;*♦ Prints a message to the console. 

para in - address of message in BX. 
para out - none 
mov AL,[BX] ;g€t next char from message 

test AL/AL ;is it zero - end of messaoe ? 
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jz Pmsg ret 
mov CL,IL 
push BX 
call CONOUT 
pop BX 
Inc BX 

jmps Print_Msg 
Pmsg_ret : 

ret 



;if zerc return 
;lcad parm for call 
;save address of message 
; print it 

;restors address of message 
;next character in message 
;next character and Icop 



;* TRAP HANDLER subroutine * 

; called from: Vectored to from CP/M interrupt 
Tra p_Handler ; ;** handles all traps. 

;** parm in - none 
;♦=* parm out - none 
cli ;blcck interrupts 

mov AXfCS 

mov DS,AX ;gst our data segment 

mov BX, offset msg_inttrap 
call Frint_Msg ;go print it 
hit ;harastcp 



* UCON ECHO subroutine * 

Ik * :4i « * « ]|i 4c « 4i * :|i * * « * # 9 4c * « 4 4c * « * 4( * « 9 « « « « « « 4c 4i :« 4c « 4c 4i 9H « « « * :(( * 

called from: DK Execute Cmd. 



Uccn Echo; 



sub 
Ucon ret 
ret 



;4c4c 
; 4C4C 
• *4c 

;♦* parm 
call CONIN 
push AX 
mov CL.AL 
call CONOUT 
pop AX 
cmp AL,'a' 
jb Ucon ret 
cmp AL,‘^z' 
ja Ucon ret 



console char and shift 



et and echo-a 
o upper case, 
parm in - none 

out - returns char read in 
;get a console character 
;save input parm 
;lcad parm for call 
;echo to console 
;tsstore input parm 



AL 



AL,^a 



I — • 



;less than 'a' is ok 

;great€r than *z' is 
;else shift to caps 



ok 



. :k4 94c4cck4c4c4c9 4c99c^4c:it4c4c4c4c4c4c4c4c4c4c94c4>4>94c94c4c94c4c4c344c4c4c4c4c4c4c4c4c4c4c9 4c4:4c*4c4c 

;* DATA SEGMENT AREA ♦ 

• 99 *4c4c4c3ic*4c9 4c4c4c>k4c4E4c4c4c *4<4c»4c4c 9 9 4 c 4c 9 9 4c 4 c 4 c 4c 4 c 4c 4 c 9 9999999999999 999999 



5ata_offset equ offset $ 

DSEG 

org data_cffset ;contiguous with code seg 

j99 Variables ** 

include config.def ; configuration table for all devices 
device_type db disk type ;type of dev (default=f loppy) 

disk db 0 “ ;disk number 

DK disk db OOH ;floppy disk controller disk # 

DK err code db OOH 
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DK err_hiinx 
DK~€rr_loin x 

DK err table 



DK_iopb_addr 

;This is the 
DK iopb 
DK~ic_com 
DK_secs_tran 
track 
sector 
DK dma addr 
;End cf iopb 

DK_rtry_cnt 
dnia_of f set 
dma_segment 

ictyte 

• 

iocal_stack 

stack_base 

# 

MB bub no 
MB^contbase 
MB_overflow 
MB page_no 
MB'sector 
;Each entry in 
;24 tracks on t 
;bubble number; 
;s€ctcr number 
MB track table 





(channel command - 7 bytes) 
;iopb channel word 



;namter of sectors to 
;track to read/write 
;sector to read/write 
;dma addr for iSBC 202 



xf er 



db 

dw 

dw 

db 

rw 



0 

0080H 

0 

0 

32 



;disk error retry counter 
;DMA offset (default) 

;DMA segment 



equ offset J 



local stack for initialization 



rb 
dw 
rb 
r w 
rb 
the 
he 



1 



;bubble device number 0-7 
OOOOH isegment base addr for contr*ler 
fMb buflen - sector_size) ;read overflw 
1 ” ;bubble page number 

1 ' :bubble sector number (1-80) 

track table corresponds to one of the 
MBB-80. The 1st byte in each entry is the 



he 2nd byte in each entry is the starting 
for that track on that bubble device, 
dw OOOOH, 001aH,0 034H,0100H,0 11aH,013 4H 
dw 0200H, 021aH,0234H,0300H,031aH,0334H 
dw 0400H,041aH,0434H,0500H,051aH,0534H 
dw 0600H, 061aH,0634H,0700H,071aH,0734H 



. 


string da 


erO 


db 


er 1 


db 


er2 


db 


er 2 


egu 


er4 


db 


erS 


equ 


er6 


equ 


er7 


egu 


er8 


d5 


er 9 


egu 


er A 


dB 


<3 r E 


equ 


ere 


equ 


erC 


egu 


erZ 


dB 


er Z 


db 


er 10 


db 


er20 


db 


er40 


db 


er80 


db 


msg int 


trap db 

db 




db 



area for console messages 



cr,lf, 
cr,lf, 
cr.lf , 
€r0 

cr # 1 f # 
erO 
erO 
€r0 

cr.lf, 

erO 

cr.lf , 
€r0 
erO 
erO 

cr,lf, 
cr.lf, 
cr,lf, 
cr,lr, 
cr,lr, 
cr,lr, 
cr ,lf 
' Inter 
cr,lf , 



' Null Error ??' ,0 
•Deleted Record ;',0 
•CHC Error :',0 

•Seek Error ; • ,0 



•Address Error :^,0 
• ID CRC Error ; • , 0 



•No Address Mark ;^,0 
•Data Mark Error : • ,0 
•Data Overrun-Underrun 
•Write Protect :\0 
•Write Error :^,0 
•Drive Not Ready : • ,0 

rupt Trap Halt^ 

0 



:'r0 
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I? 

msg_signon 

msg_i202 
nsg mbb 

END IF 



msg_signon 



ENDIF 



loadsr_bios 
db cr,lf,cr,lf 

db ‘CP/M-ee Version 1.0* ,cr, If <0 
db 'Loading CF/N from an iSBC 202 . . ' , cr, If ,0 
db 'Loading CP/M from an MBB-80. . ' ,cr ,lf , 0 
; loader_bios 

not loader_tios 
db cr,lf,cr,lf 

db ' System Generated 11/05/81* 

db cr.lf# ' Modified for iSBC 202 Disk and ' 
db 'MBB-SO Bubble* ,cr, If ,0 
;not loader_bios 



jread in disk definitions 
include dkprm.lib 

» 

;*=****♦ System Memory Segment Table ****** 



men desc table 



last_cf f set 
tpa_segment 
tpa_length 



db 1 ; 1 segments 

dw tpa segment ; 1st seg starts after BIOS 
dw tpa^lenqth ;and extends to high HAM 
equ offset $ 

equ (last cffset+0400H+15) / 16 
equ addr_Eigh_r am - tpa_segment 

db 0 ;for GENCMC to fill last address 



of variables ♦♦♦♦★♦*=it**»»5|t**»**=i5**»*** 



^ nie A 4c ^ a|c 3jc * lie 3k :|i Y 3|e 3lt :ir :(|c J|i4e :|c ^ # :|c ;ipr .ic 

* DUMMY CATA SECTION * 



f 

• 


DSSG 0 

org 


0 


;absolute low memory 

;start CP/M interrupt vectors 


into 


offset rw 


1 




int 0_ 


segment rw 


1 


;pad to bdos call vector 
int type - 1) 




rw 


2 * (bdos 


bdes 


int offset rw 


1 


;addr of bdos int call offset 


bdcs2 


int segment rw 


1 


;addr of bdos~int call segment 



4c ^3|c4c4t4c4t 3k 4t*^^4»3*t3|t3*s3|::p*ai:4K4s*^^3p4!3^f^3iC3ic3ic4ca|5#aje4c4s4c 

* MBB-80 CONTROLLER AND PORTS 

4r :k.ic4c4c4c:fc 4c4t4e 4c#4c:^ 4c4c9le 4c4c 4r:(c:^ slc^calc 4i4c 4c4e?^s|c4e:((4c 4c;^4;4c4c jc 4c4c4c4k 4c4(4c4c4e4c4c4e4c4; 



ESEG 

MEE_pagesel Ic rb 
MBE_paqesel“hi rb 
MB E_cmnd_reg rb 
MBE_raata_reg rb 
MB E_wdata_reg rb 
MSP status reg rb 
MBP2pagecnE_lo rb 
MBE_paqecnt_hi rb 
MBE_lcopsize_lo rb 
MBE_lcopsize hi rb 
“ rw 

MB E_pgsize_reg rb 

IT W 

ME E_select_bub rb 
M3E_int_flag equ 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



;ls byte for page select, (0) 

;ms 2 bits for page select, (1) 
;command register, (2) 

;read data register, (3) 

;write data register, (4) 

;status register, (5) 

;ls byte for page counter, (6) 
;ms 2 bits for page counter, (7) 
;ls byte for minor loop size, (8} 
;ms 2 bits for min loop size, (9) 
;internal use (page posK (A, 3) 
;page size register, (C) 

;tI use only, (D,E) 

;tvo uses: select nubble dev (F) 
select_bub ; interrupt flag (F) 
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=^t^’******* end of Controller and Port definitions 



A 4 * « :4c * »c * A # * :)> :*> * * * * * * 4 ^ * 4c « 3^ « 4 ^ * 3|r ^ ^ # 34c 4 * 4c * 4< * 4t * * :* 

* End of CF/a-86 Customized BIOS * 

* 4 3|t 3<e * 4« >(C 3jc 3(e ♦ * :* 3<c 4t 4c s4t ••* 5jt 3|[ 4c ♦ :4c 4c 3(C 3jl ♦ 4t 34 4c sit 3»C 3(1 3|( 34 3|t 3* * 3|C 4C >(C 4c 4( Jjc 3|t 4c # 3(C * 4 ♦ 3# 4c ♦ 3(1 3*C S> s4c 4t 

END 



FIIENANES: Pascal = dkprm . def , text 

CP/M = dkprm.def => dkprm.lib 



The following is the disk definition for 
the customized BIOS, CP/M-86. It is for the 
Intel 202 disk controller (double density) 
and the MBB-80 magnetic bubble device cont- 
rcller. DD drives are #0 and #2, and the 
bubble is #1. This definition includes all 
physical parameters for each device as req- 
uired by CP/M-86 for its 'GENDEF' ppcgram. 

A file produced by 'GENDEP' from tnis file 
is included in the BIOS during assembly. 

See CP/M-86 manuals for explanations. 



disks 3 
diskdef 
diskdef 
diskdef 
endef 



0,1 ,52 
1,1,26 
2,0 



9 9 
9 9 



2048 ,243. 128, 128, 2 
1024,71,32,0,2 



;FIIENAMES: Pascal = CONFIG. DEF. TEXT 

; CP/M = CONFIG, DEF 

# 

;This file describes the logical mappings between 
;CP/M disk numbers and the disk device-dependent 
(information. CP/M-86 allows for up to 16 disks, 

(numbered from 0 to 15 decimal, 

(This implementation is generated for 3 CP/M disks, 

« 

num_log_disks equ 3 (# of logical CP/M disks defined 

« 

(The following table describes what type of device 
(corresponds to each logical CF/M disk number. There 
(musr be one entry for each CP/M disk defined, with a 
(maximum of 16 entries. This implementation only recog- 
(nizes two types: iSEC 202 and MBB-80 disks. 

(CP/M disk #0 and *2 map to iSBC 202, while CP/M disk 

(#1 maps to an MBB-80. 

« 

devics_table db disk_type ,mbb80_type, disk_t yps 
# 

(The following table maps logical CP/M disk numbers to 
(iSEC 202 controller disk numbers (0-3 only, srnce this 
( i iplementa tion has 1 iSBC 202 controller). All CP/M 
(disk numbers precseding the last iSEC 202 disk must have 
(an entry -- null, if not an iSBC 202 disk. 

(This implementation defines CP/M disk #0 and #2 to 
(iSEC 202 controller disk numbers #0 and #1. 

DK_null equ OffH 

DK_loqical_tabls db 00H,DK_null, OIK 
« 

(The following table maos logical CP/M disk numbers 
(tc MEB-80 controller base segment addresses. All 
(CP/M disk numbers defined must have an entry (for 
(initialization) -- if no MEB-80 exists at a logical 
(CP/M disk number, then the null entry must exist. 



185 



MB_null aqu OffffH 

HB_logical_tatle dw MB^null, 08000H,aB_null 

;End cf configuration file 
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AfPENDIX F 



PROGRAM LISTING OF MBdOBOH.ASS 



PIIENAMES: Pascal = BB80BCM.TEXT 

CP/H = ME80ROM.A86 



title ’Customized ROM Boot Loader* 

ECM bootstrap for CF/M-86 on an iSEC 86/12A 

witn the 

iSBC 201,202 Floppy Disk Controllers 

and 

MBB-80 Controller 



■M 

* This Customized ROM loader for CP/M-36 has 

* the following hardware configuration: 

* Processor: iSEC 86/12A 

* Disk Controller: Intel SBC 201 or 202 

* Bubble memory: MBE-80 with memory-mapped I/O 

* Memory model: 8080 

* Programmers: J.A. Neufeld, M.S. Hicklin 

* Revisions : 

* 

* This is the BOOT BCM which is resident ♦ 

* in the 957 monitor. To execute the boot ♦ 

* the monitor must be brought on-line and » 

■* then control passed by gtfd4:0 or by ♦ 

* qffd4:0004. The first monitor command ^ 

* will boot to an iSEC 202 disk and the ♦ 

* second command will boot to an MBB-80. ^ 

* First, the ROM moves a copy of its data * 

* to RAM at location OOOOOH, then it ♦ 

* initializes the segment registers and the* 

* stack pointer. The i8259 peripheral int- * 

* rupt controller is setup tor interrupts * 

* at 10H to 17H (vectors at 0004 0H-000$PH) * 

* and edge-triggered auto-EOI (end of in- * 

* terrupt) mode with all interrupt levels 

* masked-off. Next, the appropriate device* 

* controller is initialized, and track 0 =*' 

* sector 1 is read to determine the target * 

* paragraph address for LOADER. Finally, * 

* the LOADER on track 0 sectors 2-26 and * 

* track 1 sectors 1-26 is read into the * 

* target address. Control then transfers * 

* to the LOADER program for execution. ROM * 

* 0 contains the even memory locations, and* 

* ROM 1 contains the odd addresses. BOOT 

* EOH uses RAM between OOCOOH and OOOFFH * 

* (absolute) for a scratch area. * 

a(i ::|e * 3|e ate 3^ A is ^ 9lt a|c^ 9le A * 3^ 4c ajc 3k ^ a|t :4c 
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X tm # * » tMM( 



^ ifi # 9|E :|e ^ Ik 9^ ^ # aic # 39C :|c lie 

♦ 



. «ie:^:k3|cakak:k3k3k4cak*3|eaki|C9k:4c*** EQ OATES 

• A 

t 



; I 

cr 

disk type 
If “ 

mbb80_ty pe 
remseg 
sector size 
start frk1 



— Miscellaneous equates 

equ OdH ; Ascii carriage return 

equ 01H ;type for iSBC 202 disk 

equ OaH ; Ascii line feed 

equ 02H ;type for MBB-80 disk 

equ 0ffd4H ;case of this code in ROM 

equ 128 ;CF/M sector size 

equ 0c8H ;offset for trk for DMA 



; 1825 1 OSART console ports 

• I 

CONP data equ OdSH ;I8251 data port 

CONP_status equ OdaB ;I8251 status port 

; I 

9 •*“ — — — — — —— — —— — — —— — —— ———— — — —— ” ”” — —— — — —— — 



; Disk Controller command bytes and masks (iSBC 202) 

I I I 

DK_chkint_mask equ 004H ;mask to check for DK interupt 

CK home_cmd equ 003H ;move to home position command 

DK“read_cmd equ 004H ;read command 



f 
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INTEL iSBC 202 Disk Controller Ports 



DKP_base equ 078H 

DKP result_type equ DKP base+1 

DK?“result_byre equ DKP~fcase+3 



DKP_reset 
DKP_starus 
DKP_iopb_low 
DKP_iopb_high 



equ DKP_base+7 
equ DKP_base 
equ DKP_bas€+1 
equ DKP base+2 



ctrler’s base in CP/M-8 

operation result type 

operation result byte 

disk reset 

disk status 

low addr byte cf iopb 

high addr byte cf iopb 



Magnetic bubble characteristics (MBE-80) 



MB_bufisn 
MB_contbase 
MB_maxdevs 
ME_maxpages 
MB_pages sec 
MB_pagesIze 
MB fOsI page 
MB_t0s2_page 
MB_t 1s1_page 



equ 

equ 

equ 

ecu 

equ 

equ 

equ 

equ 

equ 



144 

08000H 

7 

641 

8 

18 

0 

12 

312 



; buffer length for MBB sector 
;segm6nt base addr fer centr 
•.bubble devices are #0-#7 
;# of pages on each device 
;# of pages per logical sector 
;bubble device page size 
;starting page# for trk0,sect1 
;starting page# for trk0,sect2 
;starting page# for trkl,sect1 



; Magnetic bubble command bytes and masks (MBE-80) 
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ME_chkbusy_cmd 
MB_chkint_mask 
ME inhint cmd 



ecu 020H 
equ 080H 
equ 080H 



;is controller busy ? status 
;mask to chk for mBB interupt 
;interrupt inhibit/r eset mask 
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ME_mpage_cind 
MB_reaa_cmd 
MB reser cmd 



f 



equ 01H 
egu 010H 
equ 012H 
equ 040H 



;initialize the contrcller 
;multi-page mode operation cmd 
; multi-page read command 
; reset the controller 



; INTEL 18259 Programmable Interrupt Controller 

; I I 

PIC 59p1 equ OCOh ; 8259a port 0 

PIC 59p2 equ 0C2h ;8259a port 1 

; I ■ I 



f 



ENTRY POINT AND MAIN CODE **♦****♦*♦**♦♦♦** 



CSEG 



romseg 



command for iSBC 202 boot 
iset boot type to disk 



;Enter hers with gffd4:0 

mov DL.disk type , 

jmps Start Boot ;go start code 
;Enter here with glfd4:0004 command for MBB-80 boot 
mov DL, mbo80 type ;set toot type to mbbSO 
Start_boot; ~ 

;move our data area into RAH at 0000:0200 

mov AX,CS ;pcint DS to CS for source 

DS, AX 

SI,databegin ; start of data 

DI, offset ram start roffset of destination 
AX,0 ;s€t dest segment (ES) to 0000 

SS , AX 

CX, data length ;how much to move in bytes 
movs al 7AL ;mov€ from eprom, byte at a time 

registers and initialize the stack 

;set DS segment to 0000, now in RAH 
DS,AX ;data segment now in RAH 

SS f AX 

SF,stack_of fset ;init stack segment/point er 
;clear the direction flag 
the 8259 Programmable Interrupt Controller 
AL,013H 

■“ ‘ ICH 



mov 
mov 
mov 
mov 
mov 
mov 
rep 

;set segment 
mov AX,0 
mov *' 
mov 
mov 
cld 

;Setup 
mov 
out 
mov 
out 
mov 
out 
mov 
out 



1 , AL 



PIC 59] 
AL.UIOL 
PIC 59p2,AL 
AL,TJ1fH 
PIC 59p2,AL 
AL,UffH 
PIC 59p2,AL 



8259a 

8259a 

8259a 



1 8086 mode 



ICW 2 vector 40-5F 
ICN 4 auto EOI master 



8259a CCH 1 mask all levels off 



BRANCH TO SELECTED DEVICE FOE BOOT 



;determine if booting to iSEC 202 or to a HBB-80 
cmp DLrdisk type ; is this a 1202? 
jne Boot_Mb580 ;if not, boot to mbb80 

isEC 202 BOOT CODE *♦♦♦♦ y***yy****y«3(«*^ 



Ecct_i202: ; also return here on fatal errors 

;Reset and initialize the iflDS 800 Diskette Interface 
in AL, DKP_result_type ;clear the controller 
in AL, DKP_r ssult_byte 

cut DK? reset, AL ; Al is dummy for this command 
;home the ISBC 202 

mov DK io_com,DK hcme_cmd ;load io command 
call DK_Sxecute Cmd ;home the disk 
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mov DK 
;get trade 
mov BX/ 
mov DK 
mov DK~ 
mov DK~ 
call DK 
;qet track 
mov ES, 
mov AX, 
mov CL, 
sal AX, 
mov DK 
mov DK“ 
mov DK“ 
call DK 
;get trk 1 
mov AX, 
add AX, 
mov CL, 
sal AX, 
mov DK 
mov DK" 
mov DK" 
mo V D K" 
call DK 
jmp Jum 



io_com ,DK_r € 
0,. sector 1 
oftset genhe 
dma_addr ,BX 
secs_tran, 1 
sector* 1 
Execute Cmd 
"0, sector 1 
abs location 
ES " 

04 

CL 

dma^addr , AX 
secs tran,25 
sector . 2 
Execute Cmd 
7 sect 1"26 , 
ES 

start trki 

04 

CL 

dma_addr , AX 
sacs_tran ,26 
sector, 1 
track , 1 
Execute Cmd 
p_To_Lcader 



ad cmd :all io now reads only 
, €he GENCMD header record 
ader ; offset for 1st sector DMA 
store dma address in iopb 
transfer 1 sector 
start at sector #1 
.read track 0, sector 1 
the GENCHD header record 
segment loc for LCADEB 
to AX to manipulate 
must xlat to i6-bit addr 
shift segment 
store dma address in iopb 
transfer 25 sectors 
start at sector #2 
.read trk 0, sects 2-26 
put at next place in RAh 

compute offset for track 
add in what already read 
must xlat to 16-bit addr 
shift segment 
store dma address in ioob 
transfer 26 sectors 
start at sector #1 
start at track #1 
read trk 1, sects 1-26 
go pass control to loader 
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BBB-00 BOOT CODE ♦♦♦♦*#***:*#4u**>(t***Ht** 

Eoot_Mbb80: 

mov AX, MB_contbase ;load base addr of MBB-80 cont 
mov ES,AX ; make segment addressable 
;initialize the BBB-80 controller 
;initialize page size and minor loop size 

mov AX,HB maxpages ; pages per bubble device 

mov ES: MBP loopsiz€_lo, AL ;Iccpsize low byte 
mov ES: MBP71oopsize_hi, AH ;loopsize hi byte 
mov ES: aBP_pgsize reg.BB pagesxze ;load page size 
;issue reset command"to the"controiler 

mov AL,MB reset cmd ;reset mask byte 

mov ES: BBP cmnd"reg,AL {issue reset command 
{initialize each bubble device 



{count for locp-# of devs 
{device # to initialize 



mov CX, BB_maxdevs+ 1 
mov AL,0 
For_each : 

mov ES: MBP_select bub,AL {select each device 
mov ES: aBP_cmnd_reg ,HB_init_cmd :init this device 
push AX {save bubble# 

call Mbb80_Mait {wait for controller 

pop AX {restore bubble# 

me AL {next device number 

loop For each {dec CX, loop if not zero 

:get track J3, sector 1, the GENCMD header record 
mov BX, offset genheader {addr of dest in RAH 



page # for trk 0, sect 
transfer one sector 
# of pages to transfer 
_ read trk 0, sector 1 

{get trk 0, sect 2-26, put at abs loader address 



mov AX,H3 t0s1_page 
mov CL, 1 " 

mov CH, 1*HB pages sec 
call MDb80 Kead 



from GENCMD header rec 
convert to 16-bit addr 
shift segment 
page # for trk 0, sect ; 
transfer 25 sectors 
{# of pages to transfer 
_ read trk 0, sects 2-26 

{get trk 1, sect 1-26, put at next place in HAM 



mov BX, abs_location 
mov CL, 4 
sal BX,CL 

mov AX, MB t0s2 page 
mov CL, 25 

mov CH, 25*MB pages sec 
call MfabSO Read 



1 
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mov ax, abs_location 
add BX, 3tart_trk 1 
mov CL, 4 
sal BX,CL 

mov AX, HB_t1s 1_page 
mov CL, 26 “ 

mov CH, 26*MB pages sec 
call MbbBO Read 



;addr of dest in RAM 
;add those already read 
;convert to 16-bit addr 
; shift segment 
;page # for trk 1, sect 
;transfer 26 sectors 
;# of pages to transfer 
;read trk 1, sects 1-26 



1 



A 4c PASS CONTROL TO LOADER ******************* 



Jump To_Loader: 

“mov ES, abs_location ; segment addr of LOADER 

mov leap segment. ES ;load 

;setup far 'jump vector 

mov leap offset, 0 ;cffset of LOADER 

jmpf dwofd ptr leap_offset 

l±:kik***^*3lr*******±* £N[) OP MAIN CODE ********************** 



.ii****:tt***** BEGINNING OF SUBROUTINES **************^****** 



;* CONIN subroutine * 

. -«(*4t4i4c4c**«4c*:|c4cck4e«*:4c4c9!c4c>|c4c«««4c4cA4c**:tc4c4c***4c:(c4c4c:tc3|c***4c**4c*«*:(t*4c4c 

;called from: Ck Execute_Cmd. 

Conin: ;** returns console keyboard character 

;** parm in - none 

:** parm out - returns character in AL 
in AL.CONp status ;get status 
and AL,2 “ ;see if ready-bit 1-is set 

jz Conin ;if not, it is zero and not ready 

in AL.CONP data ;ready, so read character 
and Al,07fl ;remove parity bit 

rat 



. *if***^i^c*:**ik**********************************ifi******:^****m 

;* CONOUT subroutine * 

. *:*i^4c*4c*4c4c*3|c4c4c:«c4c*4c4c«**#4c4c4e:*:4c4c4c4>9<<4c4<4c4c4 4c4c4c4c4c4c4c4c4c4c*4c*3«*4c4c:te4c4c4c4c 

•.called from: Print Msg. 

Concut: ;** write character“to console keyboard. 

;♦* parm in - character to be output in CL 
;♦* parm cut - none 
in AL.CONP status ;get console status 
and AL, 1 “ ;see if ready-bit 0-is set 

jz CONOUT ;if zero, not ready-keep checking 

mov AL,CL ;lcad input parm to AL for out 

out CCNP_data,AL ;output character to console 
ret 



• a^3k4c3^;ici|c:ie:)ic3^*4c4e:A(4e:i^4e3V(:4r:^:k3ie9k:(e:|c 4 3|e:4c :^:|t3|t4c4t4c:V( ait:^:^3|c4e4ea^a|[4c:^ic:$c4c:K:ie3fc4c :fcie:|c:^:4e 4c 

DK EXECUTE CMD subroutine * 

;called frcm: in-line from Boot_i202. 

Dk Execute Cmd: Executes a disk read/write command 

•** parm in - DMA addr in BX . 

;♦* parm cut - none 

;send iopb to disk controller via two ports (2 bytes) 
Send_iopb : 

in AL,DKP result_type ;clear the controller 
in AL,DKP“result_by te ;clear the controller 
mov AX, offset DK_icpb ;get address of iopfc 
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out DKP iopb low,Al routput low byte of iopb addr 
mov AL,lH “ ;lcad high byte to AL for output 
out DKP iopb high^AL ;out high byte of iopb addr 
;check for~intef rupt from disk controller 
Disk_int: 

in AL,DKP_status ; get disk status 
and AL, DK_chkint_mask ; interrupt set? 
jz Disk int ;if not, keep checking 

;see if interrupt signifies I/O completion 

in AL,DKP result type ;qet reason for interrupt 
cmp AL, OOW Twas I/O complete ? 

jz" Check result ;if so, go check the result byte 
3 mps Send iopb :if not, go try again 
;check result byte for errors 
Check result: 

In AL,DKP result byte ;get result byte 
and AL,08dH Tis I/O complete? 

jnz Fatal_err ;if not, fatal error 

and AL,0feH ;check for error in any bit 

jz DK ex€cute_ret ;no errors, go return 
Fatal_err: 

mov CL,0 ' ;clear CL for counter 
Ftest : 



rcr AL,1 
inc CL 
test AL.01 
jz Ftest 
mov AL,CL 
mov AH,0 
add AX, AX 
mov BX,AX 
mov BX,err 
; print approp 
call Print 
call Conin 
jmp Boot i 
Dk execute rel: 
ret 



;check each bit of result 

;ccunt each bit 

;test each bit 

;zero, go check next 

;not zero, error, inc count 

;clear high 

;double for idx to word table 
:lcad BX as index 
tblffiX] ;get addr of error msg 
riate error message 
_Msg ;write msg to console 
;wait for key strike 
202 ;then start all over 



MbbSO Read; 









;* MBE80 READ subroutine 

* 4> A 4c a * 4c 4c4c 4c 4> 4c 4t4c 4c4> * 4c 4c 4c 4c4c V 4c4c 4< 4c 4c 4c 4c * * 4c4c 4c 4c ** 4> 4c 4c4c 4c 4c * 4c 4c 4c 4c 4c 4c4c 4> 4c4c4c * 4c 

;called from; in-line from Boot_Mbb80. 

** reads a sector from bubble 

parm in - EX is the DMA offset, AX is 
the starting page # for the xfer, CL 
has the # or sectors to xfer, and CH 
has the # of pages to xfer. 
parm out - none 
;set raultipage mode 

mov ES: MBP_cmnd_reg ,MB_mpage_cmd ;multipg mode cmd 
;load first page number for transfer 

mov ES: MBP_pagesel_lo,AL ;page select I 9 byte 
mov ES: MBP pagesel hi, AH ;page select hi byte 
;set number ol pages to transfer = pages/sectcr 
mov ES: MBP pagecnt_lo,CH ;ipages to xfer 
mov ES: MBP~pagecnt_hi, 0 ;hi byte of # is 0 
;set up dma address tc receive data 

'' ; clear high byte of CX 



;save # sectors tc xfer 
count for loop-buff size 



mov CH,0 
Read_a_sector: 
push CX 

mov CX,MB buflen . ^ 

;select bubble device and issue read command 

mov ES: MBP_seIect_bub,0 ;trks 0,1,2 on dev #0 
mov ES: MBP_cmnd reg ,M3_read_cmd ;read from FIFO 
;wait for interrupt from controller 
Read int; 
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¥ * 



mov AL,ES:MBE int_flag ;get interrupt status 
and AL.MB chkint mask ; interrupt set ? 
jz Read int “ : if zero, keep checking 

see if read enough frcm bubble sector to fill sector 
cnp CX, {MB_bufl€n - sector size) ;xferred enough? 



FIFO buffer 



inz Read one 
push BX 

;read from M3B 
Bead_one ; 

mov AL,ES:MBE rdata reg 
mov fEX],AL “ 
inc BX 

loop Read int 
pop BX - 
pop CX 

loop Read a sector 
call MbbBU Tffait 



; il net, read another 
;save location in RAM 
into dma area 



jyte 



mov 

ret 



;read a byte into accum 
;load accum into dma area 
; increment index 
;dec CX, loop if not zero 
; restore last pos in RAM 
; restore # sects tc xfer 
;read next sector 

. ;wait for controller 

ES;MBP_cmnd reg ,MB_inhint_cmd ;clear cent int 



* MBB80 HAIT subroutine * 

;called frcm; Boot_Mbb80, MbbSO Read, 

:** checks status of MBB cont for busy 



Mbb80 Wait; 



See 



keeps checking (wait) 
;** parm in - none 
:♦* parm out - none 



until not busy 



_zero ; 

mov AL,BS;MBF status reg 
and AL, MB_chk‘Eusy_cmd 
jz See_zero 
Cont_busy ; 

mov AL,ES:MBF status reg 
and AL,MB chk'5usy_cmia 
jnz Cont__busy 
ret 



;get status register 
; IS it all zeros ? 

;if so, keep checking 

;get status register 
;see if busy, and to mask 
;if busy, check again 



PRINT MSG subroutine ♦ 

called frcm; Dk Execute Cmd 



Print_Msg; 



;*♦ 
;*♦ 
;*♦ 

mov CL,fBX] 
test CL, CL 
jz Pmsq_ret 
push BX 
call Conout 
pop BX 
me BX 

jmps Frint_Msg 
Pmsg_ret : 

ret 



Prints a message to ^he console, 
parm in - address of message in 
parm cut - none 

;get next char from message 
;is it zero - end of message 
;if zero return 
;save address of message 
; print it 

;restore address of message 
;nexr character in message 
;next character and loop 



BX. 



2ND OF SOEEOOTINES 
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A template iSBC 



;Er.d cf iopb 

cerrtbl dw 
dw 
dw 
dv 
dw 
dw 
dw 
dw 



be 


moved 


set 


$ 


202 


iopb 


db 


080H 


db 


0 


db 


0 


db 


0 


db 


0 


dw 


OOOOH 



(channel command - 7 bytes) 
;iopb channel word 
;io command 
•.number of sectors 
; track to read 
;sector to read 
;dma addr for iSBC 



to xfer 



202 



CerO 
Cer 1 
Cer2 
Cer3 
Cer4 
Cer5 
Cer6 
Cer7 



db 

db 

db 

db 

db 

db 

db 

db 



5ataend equ 
5at a_length 



offset 

offset 

offset 

offset 

offset 

offset 

offset 

offset 

cr ,1 f , 
cr,lf , 
cr,lf , 
cr,li, 
cr ,lf , 
cr,lf, 
cr ,lf , 
cr,lf, 

offset $ 



erO 
er 1 
sr2 
er3 
er4 
er5 
er6 
er7 

Null Error 
CRC Error' 
Seek Error 



f 

• # 

0 

,0 



,0 



Address Error' ,0 

Data Overrun-Underrun' ,0 

Write Prctect ' ,0 

Write Error ' ,0 

Drive Net Ready', 0 



equ dataend-databegin 



reserve space in RAM for data area 
(no hex records generated here) 



DSEG 

org 



0 

0200H 



ram 



start 



equ 



the 



•.This is 
DK_iopb 
DK_io_com 
DK_£€cs tran 
DK_traclc 
DK_sector 
DK diiia addr 
;End cf ioob 



iSBC 

rb 

rb 

rb 

rb 

rb 

rw 



202 
1 
1 
1 
1 
1 
1 



iopb (channel command - 7 bytes) 
;ioph channel word 
;io command 

;number cf sectors to xfer 
;track to read 
;sector to read 
;dma addr for iSBC 202 



errtbl 


rv 


8 






erC 


rb 


length 


cerO 


; 16 


er 1 


rb 


length 


cer 1 




er 2 


rb 


length 


cer2 




er3 


rb 


length 


cer3 




er 4 


rb 


length 


cer4 


; 14 


er5 


rb 


length 


cer5 


; 11 


er6 


rb 


length 


cer6 


; 15 


er7 


rb 


length 


cer7 


; 17 


leap offset 


rw 


1 






leap_segment 

• 


rw 


1 






f 


rw 


32 


; local 


stac 


stack_cf fse t 


equ 


of rset 


$; stack 


from 



here down 
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;128 byte sector will be read in here-GENCMD header 
qenheader egu offset $ 

rb 1 

rw 1 

abs_lccation rw 1 ;absolute load location 

rw 1 

rw 1 



I* MBB-80 CCNIEOLLER AND PORTS * 

« 

’ ESEG 

MEE_pagesel_lc rb 
MEf_paqesel_hi rb 
MB E_cinnd_reg rb 

MEE_rdata_r eg rb 
MBE_wdata reg rb 
MBE_status reg rb 
MEE_pagecnw_lo rb 
MBE_pagecnt_hi rb 
MBE_lcopsize_lo rb 
MBE_lcopsize hi rb 

rw 

MBE_pgsize_reg rb 

rw 

MBE_select bub rb 

MBE int flag egu MBP select_bub ;interrupt flagl (F) 

. end of Contrcllsr and Port definitions ********* 



I **:ti**:lf:lf*:(f*,lf:ti,H**:ti±********^**************:m**W************** 

;* End of CP/W-86 Customized ROM ♦ 

^******HL:ti***ik**^**ili* :)!***** *******iH*****if***7lf:lf^f**n^******^i*L** 

END 



Is byte fcr page 
ms 2 bits for pag 
command register, 
read data regisne 
write data regist 
status register. 
Is byte for page 
ms 2 bits for pag 
Is byte for minor 
ms 2 bits for min 
internal use (page 
page size registe 
TI use only, (D,E 
two uses: select 



select, (0) 

€ select, (1) 

11 / 

counter, (6) 



€ counter, 
loop size, 
loop size,, 
posj , (A,B) 

r, (C) 



I 



ubble dev. fF) 
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